home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / seikkailu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  23 lines
  1. 10 poke53281,11:poke53280,11:print"[147][212][m[ peli on oivaa harjoitusta kovaa"
  2. 11 print"ja kylm[[ maailmaa silm[ll[pit[en."
  3. 12 print"[207]let pienipalkkainen yksityisetsiv[,    jonka [198]loppy-lehden toimitus ";
  4. 13 print"on kutsunut":print"[145]luokseen toimitukseen."
  5. 14 print"[197]p[toivoinen [[ni puhelimessa kertoi    asian olevan kiireellinen ...."
  6. 15 b$="":poke198,0:a$="paina jotain ":b$="":t=39:a=1:l=1
  7. 17 printb$tab(t)mid$(a$,a,l):ifl<13thenl=l+1
  8. 18 ift>0thent=t-1:goto25
  9. 19 a=a+1
  10. 25 ifa=14andl=13then15
  11. 26 forc=0to80:next:getc$:ifc$=""then17
  12. 27 clr:print"[147]":poke56576,199:poke53272,21:poke648,4:print"[147]"
  13. 30 poke53281,1:poke53280,1:print"[144]":forc=0to13:print"               ":next
  14. 32 print"[172][162][162][162][162][162][162][187]":print"[161]floppy[144][161]":print"[161]lehti [144][161]"
  15. 33 print"[161][150] 1/86 [144][161]":printtab(16)" ":printtab(8)"[190] [188][157][157][157]   [157][157][157][187] [172][190]"
  16. 34 printtab(9)"[129] [157] [157] ":printtab(7)"[144][172][187]"
  17. 35 print""tab(20)"[152][223][223][223][223][223][223]":printtab(12)"[144][145][164][164][175][175][185][146][161][157][161][157][161][157][161][157][161][157][161][157][161]"
  18. 36 print""tab(21)"[152] [223][157] [223][157] [223][157] [223][157] [223][157][213][201]"
  19. 37 printtab(20)"[169] [146][169][145][157][157][169] [146][169][145][157][157][169] [146][169][145][157][157][169] [146][169][157][157][145][169] [146][169][145][157][157][169][202][203][223][146][157][223][223][146][157][180][205]";
  20. 38 print"[157][157][180] [205][157][157][157][205][175][206]"tab(28)"[169][145][157][169][146][169][145][157][180][206][145][157][157][180] [206][145][157][157][157][206][183][205]"
  21. 50 print"l[207]"chr$(34)"adv.mdis"chr$(34)",8":print"r[213][145][145][145][145][145][145][145][145]":poke198,2
  22. 51 poke631,13:poke632,13
  23.