home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1986 #3
/
Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64
/
gp.mainos
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
56 lines
10 a=a+1:ifa=1thenload"gp.sprite",8,8
100 c$="":v=53248:poke2041,231:poke2040,232:pokev+39,14:pokev+40,10
110 pokev+23,3:pokev+29,3:poke53280,11:poke53281,0:pokev+37,7:pokev+38,1
150 pokev+28,0:gosub900:print" mies istuu tuolilla. han on juuri saa-"
160 print"nut tilaamansa [158]gurlauspommin. han tilasi"
170 print"[158]gp:n nauttiakseen sen ja niin han tekee-"
180 print"kin. (paina <f-1>)"
190 printspc(15)"[151][185][185][185][185][185][185][185][185][185]"
200 printspc(15)"[151][161] [151][161]"
210 printspc(15)"[151][161] [151][161]"
220 printspc(15)"[151][161] [151][161]"
230 printspc(15)"[151][161][149][182] [151][161]"
240 printspc(15)"[151][161][149][182] [175][175][175][175][151][161]"
250 printspc(15)"[151][161][149][182][180] [149][146][182][180] [151][161]"
260 printspc(15)"[151][161][149][182][183][208] [149][146][182][180][158] [151][161]"
270 printspc(15)"[151][161][149][182] [170] [149][146][182][180][158] [151][161]"
280 printspc(15)"[151][184][184][184][184][184][184][184][184][184]"
290 pokev,150:pokev+1,160:pokev+2,150:pokev+3,160:pokev+21,3
300 geta$:ifa$<>"[133]"then300
310 poke2040,233:fori=0to99:next:poke2040,234:fori=0to500:next:poke2040,233
315 fori=0to99:next
320 pokev+23,1:pokev+3,162:fori=0to70:next:pokev+29,1:pokev+2,158:fori=0to70:next
330 pokev+28,2:fori=0to70:next:pokev+29,3:pokev+23,3:fori=0to70:next
332 pokev+23,1:pokev+29,1:fori=0to70:next
340 poke2041,230:poke53280,1:poke53281,1:poke53281,0:poke53280,11
350 print" [159]tee kuten han teki: tilaa [158]gurlauspommi"
360 print"gurlauspommi [154]on"c$"saat [158]gp[154]n tilaus-"
370 print" iloluontoinen "c$"ohjeet painamal-"
380 print" diskettilehti "c$"la valilyontia. "
390 print" commodoreesi."
392 poke2040,232:fori=0to999:next:pokev+21,1
400 geta$:ifa$<>" "then400
410 pokev+21,0:gosub900
440 print" gurlauspommin voi tilata useammalla e-";
450 print"ri tavalla. nyt esittelemme niista kaksi";
460 print"(huom! tapaa-a kayttavat kaikki viisaat)"
470 print"[153]a) [159]maksa 15 mk syp-tilille 222120-57443"
480 print"maksun saaja on marko jerrman. tiedonan-";
490 print"toihin merkinta: 'olen viisas eli tilaan";
500 print"[158]gurlauspommi[159]n'. saat [158]gp[159]n jonkin ajan ku-";
510 print"luttua."
520 print"[153]b) [159]laheta kirje osoitteeseen marko jerr-";
530 print"man / makitorpantie 17 a 12 / 00640 hki.";
540 print"kirjeessa ilmoitat valtavan halusi tila-";
550 print"ta [158]gp[159]. lahetamme (jos jaksamme) sinulle";
560 print"laskun ja (ehka myos) [158]gp[159]n."
570 print"[158]gp [152]sisaltaa paljastavia artikkeleja, u-";
580 print"peita ohjelmia (peli&hyoty), kauniita(?)";
590 print"kuvia eli yli 664 blockia kamaa sinulle!"
600 print" [151] nappaimella floppyyn [146]"
898 geta$:ifa$=""then898
899 poke53277,0:poke53271,0:load"menu",8
900 print"[147] [158] [213][201][201][201][213][192][201][201] [213][201][201][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][201]"
901 print" [221][201][221][221][171][178][203][221] [171][179][221][221][202][201][171][203][221][221][221][202][203][221][221][202][203][221][221]"
902 print" [202][203][202][203][203][203] [202][203][203][203][202][203][202][203][203] [202][203][203] [203][203] [203][203]":return