home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 17
/
Mail_Madness_17_19xx_-_Side_A.d64
/
osterhase
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
64 lines
1 poke 53280,0:poke 53281,0
5 print"[147]"
10 print"
20 [153]" for(NULL)(NULL) (NULL)(NULL)
30 print" [170] [129]o [146]o [180]
40 [153]" defabs for (NULL) wait defint
50 print" [152]==[194][146][152]==
60 [153]" for (NULL)len lenright$
70 print" [194][169] [223][146][194]
80 [153]" peek close waitpeek
90 print" [150][214][129] [146][150][214]
100 [153]" for waitofor wait
110 print" [150][213][213][201]
120 [153]" mid$mid$(NULL)
130 print" [129][194] [194]
140 [153]" peek peek
150 print" [150][185][175][129][194] [194][150][175][185]
160 [153]
170 [153]" listder osterhase hat dicke eier!
180 print" er muss mal wieder ...
199 [129] a [178]0[164]20
200 [129] x[178]0[164]50:[130]
210 [153]" deforor^
220 print" [173][173][189]
230 [153]" def(NULL)right$right$
240 print" [202][203][203]
260 [129] x[178]0[164]50:[130]
280 [130]
390 [129] a [178]0 [164]1000:[130]
400 [153]" spc(spc(spc( spc( spc(spc( spc( spc( spc(spc(spc( spc( spc( spc(
410 print" [166] [166] [166] [166] [166] [166] [166][166] [166] [166]
420 [153]" spc(spc( spc( spc( spc(spc( spc(spc( spc( spc(spc( spc(
430 print" [166] [166] [166] [166] [166] [166] [166] [166]
440 [153]" spc( spc( spc(spc( spc( spc( spc(spc(spc( spc( spc( spc(
500 fori=1to1500:nexti:print"[147]"
510 print"g":fori=1to300:nexti:print"[145]r"
511 fori=1to300:nexti:print"[145]e"
512 fori=1to300:nexti:print"[145]e"
514 fori=1to300:nexti:print"[145]t"
515 fori=1to300:nexti:print"[145]z"
516 fori=1to300:nexti:print"[145]:"
520 print"[147]":print"[206][205][206][205]etal [205][206]otze"
521 fori=1to500:nexti
530 print"[147][206][205]ccept party posse"
531 fori=1to500:nexti
540 print"[147]bruchwurst"
541 fori=1to500:nexti
542 print"[147]bruchwurst"
543 print"[147][159]bruchwurst"
544 print"[147]bruchwurst"
547 fori=1to500:nexti
550 print"[147][206]"
551 print"[205]teeler"
552 print"[206]"
560 fori=1to500:nexti
600 print"[147]"
610 print"[147]
620 [153]" spc(defspc(spc( listspc( sysspc( spc(spc(
630 print" [150][166] [155][166][166] [158][166] [166] [166]
640 [153]" listspc(spc( sys spc( spc(spc( spc( spc(
650 print" [158][166] [166] [166] [166] [166]
660 [153]" spc(spc(spc( spc( spc( spc(spc(
670 goto 670