home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Golden Disk
/
Golden_Disk_89-05_1989_-_de_Side_A.d64
/
ddd.intr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
37 lines
0 i=i+1:ifi=1thenload"ddd.titl",8,1
1 ifi=2thenload"ddd.musc",8,1
2 v=53248:pokev+33,0:pokev+32,0:d$="
5 u$[178]" p r a e s e n t i e r t":[129]i[178]1[164]12
6 [153][200](d$,21)"print"[166]7)[202](u$,i,11)[202](u$,35[171]i):[129]j[178]0[164]99:[130]j,i
20 [129]i[178]49154[164]49317:[135]j:[151]i,j:[130]
110 [158]49154:[151]198,0:[158]37700,0
200 [161]u$:[139]u$[178]""[137]200
500 [151]53265,27:[151]53272,21
510 [153]"load":[151]v[170]21,0:[151]v[170]33,0:[151]v[170]32,0:[151]646,14:[151]53270,200
515 [158]37925:[158]37700,1
520 [153]"loadpoke(NULL)=tanright$* (NULL)=tanright$ right$ right$ (NULL)=tanright$* *
521 print"[152][202][221] [200][213][213][201][202][221] [200][201][201][178][201][171][201][221][213][201][202][221] [200][213][176][178][201][213][201][178][201][213][201][213][213][201][178][201]
522 [153]"list (NULL) left$(NULL)-(NULL) (NULL) left$(NULL)left$(NULL)left$(NULL)right$(NULL)-(NULL) (NULL) left$(NULL)(NULL)(NULL)left$-(NULL)(NULL)left$mid$right$(NULL)chr$left$(NULL)left$
523 print"[213][177][192][203][203][202][203][213][177][192][203][202][203][203][203][203][203][202][202][203][213][177][192][203][203][203][203][203][202][203][203][203][202][203][203][202][203][203][203]
524 [153]" ein listfanprint#taspokey-rprint#olllistenspiel
530 printspc(8)"[184][184][163][163] [163][163][163][163][184] [184][184][163][163]
531 [153][166]6)"frefretab(tab(tab(tab(tab(tab( tab(tab(tab(tab(tab(frefre frefretab(tab(tab(tab(tab(tab(
532 printspc(5)"[184][184][163][163][163][163][163][163][163][163] [163][163][163][163][163][163][184][184] [184][184][163][163][163][163][163][163][163][163]
533 [153][166]5)"frefretab(tab(tab(frefrefrefrefre tab(tab(tab(tab(tab(tab(frefre frefretab(tab(tab(frefrefrefrefre
534 printspc(5)"[184][184][184][163][163][163][163][163][184][184] [163][163][163][163][163][184][184][184] [184][184][184][163][163][163][163][163][184][184]
535 [153][166]6)"frefrefrefretab(tab(frefre tab(tab(tab(frefrefrefre frefrefrefretab(tab(frefre
536 printspc(8)"[184][184][184][184] [184][184][184][184][184] [184][184][184][184]
550 [153]"stopl(NULL)"[170][199](34)"ddd.load";:[129]i[178]0[164]2e3:[130]
570 [153][199](34)",8:":[153]"r(NULL):
590 sys37925:poke631,19:poke632,13:poke633,13:poke198,3:new
800 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
810 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
820 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
830 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
840 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
850 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
860 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
870 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
880 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253,208
890 data227,230,254,76,122,192,134,252,132,251,96,134,254,132,253,96