home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
47 lines
10 poke53281,0:poke53280,11
20 fori=1to6:reada$:forj=1tolen(a$):printmid$(a$,j,1);:forb=1to30:nextb,j,i
25 geta$:ifa$<>"e"anda$<>"k"then25
27 print"[145]"spc(30)a$
28 ifa$="e"then50
29 ifs<>0then70
30 fori=1to15:reada$:forj=1tolen(a$):printmid$(a$,j,1);:c=int(120*rnd(1))+1
32 forb=1toc:nextb,j,i
35 geta$:ifa$=""then35
36 goto64
50 print" [197]t sina terminaali ohjelmaa tarvitse!!"
52 print"[205]ene ostamaan modeemi ja yrita sittenuudelleen!!"
54 print"[205]ita teet?":print" 1 [146] [205]enet ostamaan modeemin."
55 print" 2 [146] [217]ritat uudelleen.":print" 3 [146] [208]alaat sisallysluetteloon."
60 geta$:ifa$<"1"ora$>"3"then60
62 ifa$="1"thenprint" [205]oi sitten!":sys64739
63 ifa$="2"thens=1:restore:goto20
64 poke203,51:new
70 print"[200]yva yrittaa huijata! [212]osi sikaa moinen!"
72 print"[208]ainu nyt ostamaan se moteemi, perkele!!":a$="1":fori=0to2000:next:goto62
100 data"[147][154][176][192][178][192][178][192][178][192][178][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][178][192][178][192][178][192][178][192][174]"
101 data"[221][176][189][176][189][176][189][176][189][176][189][155][212]erminaali ohjelma[154][173][174][173][174][173][174][173][174][173][174][221]"
102 data"[173][177][192][177][192][177][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][177][192][177][192][177][192][177][189][141]"
104 data" [150][212]erminaali ohjelmaa tarvitaan kun kay-"
105 data"tetaan [205][207][196][197][197][205][201][193].[141]"
106 data" [207]nko sinulla modeemi ([203]/[197])?[141]"
108 data"[141] [200]yva!! [211]ina taidat siis tarvita termi-"
109 data"naali ohjelmaa.[141]"
110 data" [212]aman terminaali ohjelman tekee erino-"
111 data"maiseksi se, etta sen laajentamismahdol-"
112 data"lisuudet ovat uskomattomat. [193]ivan liian"
113 data"helposti saat sen lahettamaan omia mak-"
114 data"rojasi ja muita juttujasi. [202]os et itse"
115 data"jaksa tehda mitaan, voit tilata taman"
116 data"lehden toimitukselta ([199][208]) laajennusosia,"
117 data"joita tama termis kylla tarvitseekin.[141]"
118 data" [202]a tassa tulee itse ohjelma: [144][144][144][144][159] "
119 data"10 open2,2,2,chr$(166)+chr$(16)[141]"
120 data"20 geta$:print#2,a$;:get#2,a$:printa$;:goto20[141]"
122 data" [150][206]aputa sisaan ja rupea baudailee, jee![141]"
124 data" [151] [206]appaimella sisallysluetteloon "
199 rem(NULL)
200 "moi! mita sa naita luet? et saisi lukea naita teksteja."
201 "yritatko etsia jotain mielenkiintoistakin?"
202 "kun kerran olet vauhtiin paassyt, tutki loputkin levysta!"
203 "voit lyotaa jotain kivaa!!!"