Aus gegebenem Anlass habe ich mal meine eingerosteten Basic-Kenntnisse auf die Probe gestellt.
10 print chr$(147)
20 poke53280,1:poke53281,1:poke646,0
30 input"wie ist dein name";a$
40 print"hallo " a$ "."
50 input"moechtest du das rss-abo von basic thinking kuendigen (j/n)";bt$
60 if bt$="J" goto80
70 if bt$="N" or bt$<>"n" goto50
80 input"bist du sicher (j/n)";b$
90 if b$="j" goto46902
100 if b$="n" goto50
110 if b$<>"j" or b$<>"n" goto80
46902 print"OK.":sys64738
ich weiss zwar auch nicht warum ich bacsicthinking bisher gelesen hab, aber jetzt ist recht unspannend geworden…
Muss ja jeder selber wissen. Normalerweise hätte ich das auch gar nicht zu Thema gemacht, aber die Umsetzung in Basic war einfach zu verlockend. ;-)