home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_022_19xx_-_de_Disk_4_of_4_Side_B.d64
/
module1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
617b
|
20 lines
10 rem mensch aergere dich nicht
11 rem 64'er sh 3
100 poke53281,0:poke53280,0
120 print"[147]":poke211,7:poke214,7:sys58640:poke646,1
130 print"me[159]n[156]sch [158]a[129]e[149]r[150]g[151]e[153]r[154]e ";
140 print"di[158]ch [155]n[150]i[158]cht"
150 print"[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]"
155 print"don't get up-set!"
158 print"interpreted by h.steinbeck"
160 print"[155] do you need instructions to play? (y/n)"
170 geta$:ifa$=""then170
180 ifa$="y"thenp$="module2":goto210
190 ifa$="n"thenp$="module3":goto210
200 goto170
210 print"[147]please wait!"
220 q=peek(186)
230 print"[144]load";chr$(34);p$;chr$(34);",";q:print"run"
240 poke23040,0:poke43,1:poke44,90
250 poke198,5:poke631,19:poke632,13:poke633,13:poke634,13:poke635,0:new