home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 22
/
Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
menue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
46 lines
1 poke45,peek(174):poke46,peek(175):clr
20 poke53280,0:poke53281,0:print"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
30 print"[194][155] h a u p t m e n u e [146][194]";
40 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":x=28:y=73
50 printspc(4)"1 [154]musik + geraeusche":a1$="musik + geraeusche"
60 printspc(4)"2 [154]rahmen - muster":a2$="rahmen - muster"
70 printspc(4)"3 [154]eignerzeichen":a3$="eignerzeichen"
80 printspc(4)"4 [154]farbdemos":a4$="farbdemos"
90 printspc(4)"5 [154]bewegungen":a5$="bewegungen"
100 printspc(4)"6 [154]routinen":a6$="routinen"
110 printspc(4)"7 [154]menue-teile":a7$="menue-teile"
111 printspc(4)"8 [154]sammlung rechenaufgaben":a8$="sammlung rechenaufgaben"
112 printspc(4)"9 [154]sammlung textaufgaben":a9$="sammlung textaufgaben"
120 v=53248:pokev+21,4:poke2042,13:forn=0to62:readq:poke832+n,q:next:pokev+41,7
130 pokev+4,x:pokev+5,y
140 data255,252,0,0,2,0,0,1,0,0,0,128,0,0,64,0,0,32,0,0,16,136,145,40,144,145
150 data36,160,145,34,192,241,225,160,145,34,144,145,36,138,149,40,0,0,16,0,0
160 data32,0,0,64,0,0,128,0,1,0,0,2,0,255,252,0
170 gete$:ife$=""then170
180 ife$=chr$(17)theny=y+17:goto220
190 ife$=chr$(145)theny=y-17:goto240
200 ife$=chr$(13)then260
210 goto170
220 ify>209theny=73
230 goto130
240 ify<73theny=209
250 goto130
260 ify=73andpeek(1188)=49thenpokev+21,0:a$="b1":goto330
270 ify=90andpeek(1268)=50thenpokev+21,0:a$="b2":goto330
280 ify=107andpeek(1348)=51thenpokev+21,0:a$="b3":goto330
290 ify=124andpeek(1428)=52thenpokev+21,0:a$="b4":goto330
300 ify=141andpeek(1508)=53thenpokev+21,0:a$="b5":goto330
310 ify=158andpeek(1588)=54thenpokev+21,0:a$="b6":goto330
320 ify=175andpeek(1668)=55thenpokev+21,0:a$="b7":goto330
321 ify=192andpeek(1748)=56thenpokev+21,0:a$="b8":goto330
322 ify=209andpeek(1828)=57thenpokev+21,0:a$="b9":goto330
330 pokev+21,0
20000 poke53280,14:poke53281,6:poke646,6
20010 print"[147]"
20030 print"poke 636,13:poke 198,7"
20040 print"load";chr$(34);a$;chr$(34);",8,1"
20051 print"run"
20052 poke631,19:poke632,13:poke633,13:poke634,13
20053 poke635,13:poke636,13:poke637,13
20054 poke198,7