home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / fsiii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  3.3 KB  |  112 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 14 dimw$(120),b(15)
  4. 16 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153
  5. 18 sys57812"fsiiititle.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 20 sys57812"fsiii3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 22 poke251,64:poke252,96:poke253,76:sysun:syshg
  8. 24 sys57812"fsiii font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 26 sys57812"fsiiic000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 30 sys13312,"fsiii text",dv
  11. 32 h=peek(252)*256+peek(251)
  12. 34 w$(0)=right$(w$(0),len(w$(0))-2)
  13. 36 fs$="[129][212][200][197] [198][204][201][208] [211][201][196][197] [207][198] [212][200][197] [198][207][213][210] [211][197][193][211][207][206][211]"
  14. 37 sp$="                                        "
  15. 38 q=1:fori=0toh:ifw$(i)="*"thenb(q)=i:q=q+1
  16. 40 next:b(0)=0
  17. 50 print"[147]"
  18. 60 syshg:print"[147]"
  19. 65 syssr,96,76,56
  20. 100 fori=1to8:s$(i)="fsiii"+chr$(i+48)+".shp":m$(i)="fsiii"+chr$(i+48)+".mus"
  21. 110 next
  22. 120 goto700
  23. 200 n=1:s=1:fl=0:p=0:gosub500
  24. 205 gosub330
  25. 210 gosub300:ifflthen700
  26. 230 syssq-3,"[144]"
  27. 231 syssq,0,23,sp$
  28. 233 syssq,0,24,sp$
  29. 236 syssq,20-int((len(w$(n))/2)),23,w$(n)
  30. 238 syssq,20-int((len(w$(n+1))/2)),24,w$(n+1)
  31. 240 fort=1to500
  32. 242 geta$
  33. 243 ifa$="q"thent=500:next:goto700
  34. 244 ifa$<>"n"then247
  35. 245 t=500:next:gosub310:ifflthen700
  36. 246 n=b(s)+1:goto210
  37. 247 ifa$<>""thent=500
  38. 249 next
  39. 260 n=n+2
  40. 265 ifn>=b(s+1)thenn=b(s)+1
  41. 270 goto210
  42. 300 ifpeek(49152)=7thenreturn
  43. 310 gosub450:s=s+1:ifs>8thenfl=1:return
  44. 320 gosub500:syshg:n=b(s)+1
  45. 330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  46. 340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  47. 350 poke251,64:poke252,96:poke253,76:sysun
  48. 360 poke252,96:poke253,76:syshg:gosub430
  49. 370 return
  50. 430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  51. 450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  52. 500 poke53281,0:onsgoto502,510,520,530,540,550,560,570,600
  53. 502 print"[147][129]"tab(10)"[211][208][210][201][206][199] [155]- [205]ovement 1
  54. 504 [153]"cont   'str$on't worry, be happy...'
  55. 506 gosub600:return
  56. 510 print"[147][129]"tab(10)"[211][208][210][201][206][199] [155]- [205]ovement 2
  57. 512 [153]"cont   '(NULL)akin care of bizness...'
  58. 514 gosub600:return
  59. 520 print"[147][129]"tab(10)"[211][213][205][205][197][210] [155]- [205]ovement 1
  60. 522 [153]"cont   '(NULL)ell, my dawg died yesterday...'"
  61. 524 [141]600:[142]
  62. 530 [153]"loadfor"[163]10)"(NULL)(NULL)(NULL)(NULL)val(NULL) list- (NULL)ovement 2
  63. 532 print"[154]   '[201] can't get no satisfaction...'
  64. 534 [141]600:[142]
  65. 540 [153]"loadfor"[163]10)"atn(NULL)(NULL)(NULL)(NULL)(NULL) list- (NULL)ovement 1"
  66. 542 [153]"cont   '(NULL)icks just keep gettin harder
  67. 544 print"   to find...'
  68. 546 [141]600:[142]
  69. 550 [153]"loadfor"[163]10)"atn(NULL)(NULL)(NULL)(NULL)(NULL) list- (NULL)ovement 2"
  70. 552 [153]"cont   '(NULL)imes are hard, you're afraid to
  71. 554 print"    pay the fee...'
  72. 556 [141]600:[142]
  73. 560 [153]"loadfor"[163]10)"(NULL)right$(NULL)(NULL)val(NULL) list- (NULL)ovement 1"
  74. 562 [153]"cont    'atnre you reelin in the years?'
  75. 564 gosub600:return
  76. 570 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 2"
  77. 572 print"[154]   '[196]ancin in the dark, and
  78. 573 [153]"    reminiscing...'
  79. 574 gosub600:return
  80. 600 poke214,10:print
  81. 610 print"  [159][215]hile picture is showing:
  82. 620 [153]"   (NULL) open- (NULL)ext (NULL)ovement
  83. 630 print"   [209] [159]- [209]uit to [205]ain [205]enu
  84. 640 [153]"   atnny other key open- (NULL)ext line of verse
  85. 650 return
  86. 700 poke53281,0:ifpeek(53265)<>27thensyshg
  87. 705 ifmuthengosub450
  88. 710 print"[147][154] "fs$
  89. 720 print"  1[154]  [211]ee, hear and read the poem
  90. 730 [153]"  2cont  mid$ust see the eight pictures
  91. 740 print"  3[154]  [209]uit to [204][207][193][196][211][212][193][210]
  92. 750 [151]198,0
  93. 760 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]760
  94. 770 [145][197](a$)[137]200,800,40000
  95. 800 [129]i[178]1[164]8
  96. 802 [153]"loadcont (NULL)ress any key to go to the next
  97. 804 print" picture.  [208]ress [209][154] while picture is
  98. 806 [153]" showing to return to the menu.
  99. 830 sys57812s$(i),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  100. 840 poke251,64:poke252,96:poke253,76:sysun
  101. 850 poke252,96:poke253,76:syshg
  102. 860 geta$:ifa$=""then860
  103. 865 syshg:poke53281,0
  104. 870 ifa$="q"theni=8:next:goto700
  105. 880 next:goto800
  106. 10000 open15,8,15,"s0:fsiii":close15:save"fsiii",8:end
  107. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  108. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  109. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
  110. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  111. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  112.