home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_87-12_1987_-_de_Side_A.d64
/
beispielprogramm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
699b
|
31 lines
10 onresetgoto1000
20 onnmigoto1100
30 onbrkgoto1100
40 onrunstopgoto1200
50 onlistgoto1300
60 onerrgoto1400
100 poke53280,12:poke53281,12:print"[147]";:x=30
110 a$=" magic disk 64 [157][157][157][157][157][157][157][157][157][157][157][157][157]"
120 b$=" [157][157][157][157][157][157][157][157][157][157][157][157][157]"
130 goto200
135 print""tab(i)a$
140 print""tab(28-i)a$
150 print""tab(i)a$
160 print""tab(28-i)a$
170 print""tab(i)a$
180 print""tab(28-i)a$
190 print""tab(i)a$
195 print""tab(28-i)a$:return
200 fori=2to24
205 gosub135:next
210 fori=24to2step-1
215 gosub135:next:print"[144]":end
1000 print"[147]":fori=0to64:poke53280,i:poke53281,i:next:run100
1100 printchr$(13)"[144]oh schreck !!!":end
1200 print"[144] run/stop ist leider defekt.":fori=0to1000:next
1210 poke157,0:poke204,0:run100
1300 print"10 move 'magic disk 64' back and forth
1310 [153]"20 goto 10":[128]
1400 [153]"loadein fehler hat sich eingeschlichen !!!"
1410 [129]i[178]0[164]1000:[130]:[138]100