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