10 REM *** YEAH, YEAH, YEAH! ***
20 POKE53280,0:POKE53281,0:POKE646,1
30 INPUT”GIBT ES EINEN KOSTENLOSEN BASIC-EMULATOR FUER IOS”;A$
40 IF A$=”NEIN” GOTO 70
50 IF A$=”JA” GOTO 80
60 IF A$“JA” OR A$“NEIN” GOTO 30
70 PRINT”KCHKCHKCH…”:SYS64738
80 PRINT”YEAH, BABY!”
Archiv: Tag „basic“
Seite 1 von 11
Microsoft Small Basic
Basic Thinking
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
RUN (…)