home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / presenter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  10.5 KB  |  192 lines
  1. 1 iflf=0thenlf=1:load"romusic",8,1
  2. 2 ifpeek(49153)=11thenifpeek(49154)=192then5
  3. 3 load"sidirq v3",8,1
  4. 5 ifpeek(51201)<>12orpeek(51202)<>200orpeek(52222)<>5then7
  5. 6 goto8
  6. 7 load"routines v4",8,1
  7. 8 ifpeek(927)=248then10
  8. 9 load"menu.sp1",8,1
  9. 10 poke49161,0:poke49162,160:ol$="":goto6000
  10. 1000 poke646,c%(2):print"[147]"tl$:pokev+33,c%(1):poke1021,17:lp=1:poke646,c%(4):printwt$;:fori=2to17:print"[221]"spc(38)"[221]";:next:printwb$;:poke646,c%(3):print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:print"[221]f1[146][208]age [194]ack  [221][208][146]rinter[221][202]oystick[146] scrolls[221]";
  11. 1030 print"[221]f3[146][211]croll [194]ack[221][195][146]olors [221]    ([208]ort 2)    [221]";:print"[221]f5[146][211]croll [198]wd.[221]"mu$"  [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";:print"[221]f7[146][208]age [198]wd.  [221][216][146]=[197]xit [221]"spc((16-len(mo$))/2)mo$tab(39)"[221]";:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:fori=217to242:pokei,peek(i)or128:next:poke646,c%(5):sys51203
  12. 1055 poke2023,125:poke56295,c%(3):return
  13. 1100 poke783,peek(783)and254:poke781,y%:poke782,x%:sys65520:return
  14. 1200 input#15,er%,er$,et%,es%:if(er%>19ander%<30)orer%=66orer%=67orer%=71orer%=73then1250
  15. 1210 return
  16. 1250 print"[147][212]here has been a disk error.":print:print"[208]ress <space> to continue.":pokeb,0
  17. 1253 getk$:ifk$=""then1253
  18. 1261 run
  19. 1300 return
  20. 1400 return
  21. 1450 return
  22. 1500 iff$=ol$thenreturn
  23. 1501 ol$=f$:open8,8,8,f$:gosub1200:ifer%=62thenreturn
  24. 1505 print"[158]  [210]eading: "m$(mp,0):ll=1:poke781,8:sys65478
  25. 1515 sysli,b$:t$(ll)=left$(b$,38):ifst=.thenll=ll+1:goto1515
  26. 1520 sys65484:close8:gosub1200:fori=ll+1toll+20:t$(i)="":next:return
  27. 2000 getk$:j%=notpeek(j)and31:ifk$=""andj%=.then2000
  28. 2001 pokeb,0:ifk$="\"then60000:runap
  29. 2010 ifk$="[145]"ork$=""ork$="[134]"orj%=1thengosub2100:goto2000
  30. 2015 ifk$=""ork$="[157]"ork$="[135]"orj%=2thengosub2200:goto2000
  31. 2020 ifk$="[133]"then2300
  32. 2025 ifk$="[136]"then2400
  33. 2030 ifk$="p"ork$="[208]"ork$="[175]"ork$=""then50000
  34. 2035 ifk$="c"ork$="[195]"ork$="[188]"ork$=""then2500
  35. 2040 ifk$="m"ork$="[205]"ork$="[167]"thenmu%=-1:gosub2705:sys49152:mu$="[209][146]uiet":goto2800
  36. 2045 ifk$="q"ork$="[209]"ork$="[171]"thenmu%=0:gosub2705:mu$="[205][146]usic":goto2800
  37. 2050 if(k$="x"ork$="[216]"ork$="[189]"ork$=""orj%=16ork$=" ")andm$(mp,2)="rq"then5000
  38. 2051 ifk$="x"ork$="[216]"ork$="[189]"ork$=""orj%=16ork$=" "then5900
  39. 2055 goto2000
  40. 2100 iflp=1then1450
  41. 2105 lp=lp-1:sys51209:x%=1:y%=2:gosub1100:ifleft$(t$(lp),4)="\oad"thenprint"":goto2110
  42. 2107 printt$(lp)
  43. 2110 return
  44. 2200 iflp+16>llthen1400
  45. 2205 lp=lp+1:sys51206:x%=1:y%=17:gosub1100:ifleft$(t$(lp+15),4)="\oad"thenprint"":goto2210
  46. 2207 printt$(lp+15)
  47. 2210 return
  48. 2300 fori=1to15:gosub2100:next:goto2000
  49. 2400 fori=1to15:gosub2200:next:goto2000
  50. 2500 poke646,c%(2):print"            [195]olor [211]election            ":r%=.:poke646,c%(5):sys51200:print"[198]rom here, you can select the colors":print"that you find most legible for read-":print"ing text.  [212]hese colors are only ac-":print"tive when you are actually reading an
  51. 2525 [153]"article.  (NULL)ou may change the colors of":[153]"any of the following:":[153]"      (NULL)he peekorder: ";:[151]646,c%(.):[153]"  wait";:[151]646,c%(5):[153]"_":[153]"  (NULL)he peekackground:":[153]"  (NULL)he (NULL)itle (NULL)ine: ";:[151]646,c%(2):[153]"  ":[151]646,c%(5)
  52. 2550 [153]"(NULL)he lenommand (NULL)enu: ";:[151]646,c%(3):[153]"  ":[151]646,c%(5):[153]"    (NULL)he (NULL)ext peekox: ";:[151]646,c%(4):[153]"  ":[151]646,c%(5):[153]" (NULL)he (NULL)ext right$tself:   ":[151]646,c%(3):[153]wt$;:[153]"(NULL) (NULL)se len(NULL)(NULL)(NULL) keys/mid$oystick to move the   (NULL)";:[153]"(NULL) arrows, and (NULL)pacebar/peekutton to exit. (NULL)";
  53. 2575 [129]i[178]1[164]2:[153]"(NULL)                                      (NULL)";:[130]:[153][200](wb$,39);:[129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[141]1055:x%[178]3:y%[178]22:[141]1100:[153]"";:[129]i[178].[164]15:[151]646,i:[153]"  ";:[130]:[153]:x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[151]646,c%(3):[153]"^";
  54. 2600 [161]k$:j%[178][168][194](j)[175]31:[139]k$[178]""[175]j%[178].[167]2600
  55. 2601 [151]b,0:[139]k$[178]"on"[176]j%[178]1[167]2650
  56. 2602 [139]k$[178]""[176]j%[178]2[167]2670
  57. 2603 [139]k$[178]"cmd"[176]j%[178]4[167]2610
  58. 2604 [139]k$[178]""[176]j%[178]8[167]2630
  59. 2605 [139]j%[178]16[176]k$[178]" "[167]5999
  60. 2606 [137]2600
  61. 2610 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" 
  62. 2612 c%(r%)=c%(r%)-1:ifc%(r%)<.thenc%(r%)=15
  63. 2615 ifr%>1thenifc%(r%)=c%(1)then2612
  64. 2617 ifr%=1thenifc%(1)=c%(2)orc%(1)=c%(3)orc%(1)=c%(4)orc%(1)=c%(5)then2612
  65. 2618 x%=4+c%(r%)*2:y%=23:gosub1100:print"^":onr%+1gosub2810,2820,2830,2840,2850,2860:ifr%<>1thenx%=19:y%=10+r%:gosub1100:poke646,c%(r%):print"  ":poke646,c%(5)
  66. 2625 goto2600
  67. 2630 x%=4+c%(r%)*2:y%=23:gosub1100:print" 
  68. 2632 c%(r%)[178]c%(r%)[170]1:[139]c%(r%)[177]15[167]c%(r%)[178].
  69. 2635 [139]r%[177]1[167][139]c%(r%)[178]c%(1)[167]2632
  70. 2637 [139]r%[178]1[167][139]c%(1)[178]c%(2)[176]c%(1)[178]c%(3)[176]c%(1)[178]c%(4)[176]c%(1)[178]c%(5)[167]2632
  71. 2640 [137]2618
  72. 2650 x%[178]21:y%[178]10[170]r%:[141]1100:[153]" ":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" ":r%[178]r%[171]1:[139]r%[179].[167]r%[178]5
  73. 2655 x%[178]21:y%[178]10[170]r%:[141]1100:[151]646,c%(5):[153]"_":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[151]646,c%(3):[153]"^":[137]2600
  74. 2670 x%[178]21:y%[178]10[170]r%:[141]1100:[153]" ":x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" ":r%[178]r%[170]1:[139]r%[177]5[167]r%[178].
  75. 2675 [137]2655
  76. 2700 [139][194](788)[178]49[167][151]s[170]24,15:[158]49158:[151]56325,49
  77. 2702 [142]
  78. 2705 [139][194](788)[178]49[167]2715
  79. 2710 [158]49155:[151]s[170]24,00
  80. 2715 [142]
  81. 2800 x%[178]15:y%[178]22:[141]1100:[151]646,c%(3):[153]mu$:[151]646,c%(5):[137]2000
  82. 2810 [151]v[170]32,c%(.):[142]
  83. 2820 [151]v[170]33,c%(1):[142]
  84. 2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,c%(2):[158]51203:[151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,c%(5):[142]
  85. 2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,c%(3):[158]51203:[151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]56176,c%(3):[151]56215,c%(3):[151]56216,c%(3):[151]56255,c%(3):[151]646,c%(5):[142]
  86. 2850 [151]646,c%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203:[151]1020,18:[151]1021,18:[158]51203:cm[178]55296:tn[178]39:ft[178]40:f[178]c%(4):[129]i[178]2[164]17:[151]cm[170]i[172]ft,f:[151]cm[170]i[172]ft[170]tn,f:[130]:[151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,c%(5):[142]
  87. 2860 [151]646,c%(5):[158]51203:[129]i[178].[164]4:x%[178]19:y%[178]i[170]10:[141]1100:[151]646,c%(i):[139]i[179][177]1[167][153]"";
  88. 2870 [153]"  ":[130]:[151]646,c%(5):[142]
  89. 2900 x%[178]0:y%[178]2:[141]1100:[158]51200:[129]i[178]lp[164]lp[170]15:[139][200](t$(i),4)[178]"\oad"[167][153]"":[137]2904
  90. 2903 [153]""t$(i)
  91. 2904 [130]:[151]b,0:[142]
  92. 5000 [141]2705:[153]"load";:[151]v[170]33,.:[153]"print "mt$[163]39[171][195](mo$))mo$:[153]wt$;:[129]i[178]2[164]18:[153]"(NULL)"[166]38)"(NULL)";:[130]:[153]wb$;:[153]"open"wt$"(NULL) len(NULL)(NULL)(NULL)wait keys or mid$oystickwait to scroll menu (NULL)";:[153]"(NULL) (NULL)(NULL)atnlenval-peekatn(NULL)wait, (NULL)eturnwait, or peekuttonwait (NULL)elects (NULL)";:[153]"(NULL)       (NULL)wait key to exit (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)         (NULL)";
  93. 5022 [153][200](wb$,39);:[151]2023,125:[151]56295,3:[129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"for";:[158]51203:[151]2040,14:[151]v,60:[151]v[170]1,128:[151]v[170]29,3:[151]v[170]39,7:[151]v[170]21,2:[151]2041,13:[151]v[170]2,60:[151]v[170]3,128:[151]v[170]40,7:[141]5500
  94. 5050 [139]mp[178]1[167][139]m$(1,1)[178]"*"[167]a$[178]"":[137]5055
  95. 5051 [161]a$:j%[178][168][194](j)[175]31:[139]j%[178].[175]a$[178]""[167]5051
  96. 5052 [151]b,0
  97. 5055 kf[178]0:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"dim"[176]a$[178]"run"[176]j%[178]1[167]kf[178]1:[141]5100
  98. 5056 [139]kf[178]1[175][200](m$(mp,0),1)[178]"*"[167][141]5100
  99. 5060 kf[178]0:[139]a$[178]""[176]a$[178]"cmd"[176]a$[178]"read"[176]a$[178]"if"[176]j%[178]2[167]kf[178]1:[141]5200
  100. 5061 [139]kf[178]1[175][200](m$(mp,0),1)[178]"*"[167][141]5200
  101. 5065 [139]a$[178]"input"[176]a$[178]"goto"[167]5300
  102. 5070 [139]a$[178]"let"[176]a$[178]"restore"[167]5400
  103. 5075 [139]j%[178]16[176]a$[178]" "[176]a$[178][199](13)[167][141]63300:[137]5900
  104. 5080 [139]a$[178]"x"[176]a$[178]"(NULL)"[176]a$[178]"exp"[167][151]v[170]21,.:[137]5600
  105. 5090 [137]5050
  106. 5100 [139]mp[178]1[167][141]1450:[137]5150
  107. 5105 [158]51209:[158]51209:mp[178]mp[171]1:[139]mp[179]5[167][151]1021,2[172](5[171]mp):[158]51200:[151]1021,18:[137]5150
  108. 5114 x%[178]12:y%[178]2:[141]1100:po$[178]m$(mp[171]4,.):[139][200](po$,1)[178]"*"[167][153][202](po$,2);:[137]5150
  109. 5116 [153]"for"m$(mp[171]4,.);
  110. 5150 [142]
  111. 5200 [139]mp[178]ml[167][141]1400:[137]5250
  112. 5205 [158]51206:[158]51206:mp[178]mp[170]1:[139]mp[177]ml[171]4[167][151]1020,2[172](6[170](ml[171]mp)):[158]51200:[151]1020,2:[137]5250
  113. 5214 x%[178]12:y%[178]18:[141]1100:po$[178]m$(mp[170]4,.):[139][200](po$,1)[178]"*"[167][153][202](po$,2);:[137]5250
  114. 5216 [153]"for"m$(mp[170]4,.);
  115. 5250 [142]
  116. 5300 mp[178]1:[141]5500:[137]5050
  117. 5400 mp[178]ml:[141]5500:[137]5050
  118. 5500 [158]51200:[153]"for";:[139]mp[179]5[167]5520
  119. 5505 [129]i[178]mp[171]4[164]mp[170]4:[139][200](m$(i,.),1)[178]"*"[167][153][163]12)[202](m$(i,0),2)"":[137]5515
  120. 5510 [153][163]12)"for"m$(i,.)"
  121. 5515 next:return
  122. 5520 fori=mpto4:print"";:next:fori=1tomp+4:ifleft$(m$(i,.),1)="*"thenprinttab(12)mid$(m$(i,0),2)"":goto5530
  123. 5525 printtab(12)m$(i,.)"
  124. 5530 [130]:[142]
  125. 5600 [153]"loadvalxiting (NULL)oadstar";:[141]63002:[141]63000:[153]"loadstopload"[199](34)"exit.blurb"[199](34)",8":[153]"run20":[151]597,0:[151]631,13:[151]632,13:[151]b,2:[151]56325,59:[128]
  126. 5900 po[178]0:[141]7000:[139]po[178]1[167]5000
  127. 5902 f$[178]"t."[170]m$(mp,1):tl$[178]m$(mp,.):[151]v[170]21,0:po[178]0:[141]63100:[139]po[178]1[167]5900
  128. 5904 [141]1500:[139]er%[178]62[167][160]8:[137]5000
  129. 5910 [151]s[170]4,.:[151]s[170]11,.:[151]s[170]18,.:[139]mu%[175][194](788)[178]49[167][158]49152:[151]56325,49:mu%[178][171]1:[151]s[170]24,15
  130. 5999 [141]1000:[141]2900:[137]2000
  131. 6000 v[178]53248:r[178]v[170]17:c[178]128:s[178]v[170]1024:j[178]56320:lp[178]1:li[178]52016:mu%[178][171]1:[158]52176:b[178]198:[151]s[170]5,96:[151]s[170]6,246:[159]15,8,15:[134]t$(600),m$(60,3),c(4):[129]i[178]1[164]4:[135]c(i):[130]:mu$[178]"(NULL)waituiet":[131]2,5,6,7:[151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]49665,4:[153]"load":[151]s[170]23,.:[151]s[170]4,128
  132. 6015 wl$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":wt$[178]"or"[170]wl$[170]"^":wb$[178]"/"[170]wl$[170]"exp":m$[178]"features11":[159]8,8,8,m$:[141]1200:ml[178]1:[132]8,mt$:[132]8,mo$:[132]8,mn$
  133. 6030 [129]i[178].[164]3:[151]781,8:[158]65478:[158]li,b$:m$(ml,i)[178]b$[170]"":[139]st[167][141]1200:[139]er%[178].[175]st[177]63[167]6037
  134. 6033 [130]:ml[178]ml[170]1:[137]6030
  135. 6037 [134]c%(5):[129]i[178]1[164]5:[135]c%(i):[130]:c%(.)[178]c(f%[173]10):[131]1,2,6,5,:[160]8:[158]65484:[151]s[170]4,.:[151]s[170]23,.:[151]s[170]5,9:[151]s[170]6,.:mp[178][194](597):[139]mp[177]ml[176]mp[179]1[167]mp[178]1
  136. 6044 [137]5000
  137. 7000 [151]53281,0:[151]53280,6:[151]v[170]21,2:[141]2705:[158]51200:[153]"load";:[158]51203:bl[178][195](m$(mp,2)):sq$[178]m$(mp,2):[153]"loadsys";[166]19[171]([195](m$(mp,0))[173]2))" "m$(mp,0)" wait":c[178]0:[153]wt$;:[129]i[178]2[164]18:[153]"(NULL)"[166]38)"(NULL)";:[130]:[153]wb$;:[153]"":[153]"open"wt$"(NULL) len(NULL)(NULL)(NULL)wait keys or mid$oystickwait to scroll menu (NULL)";
  138. 7033 [153]"(NULL) (NULL)(NULL)atnlenval-peekatn(NULL)wait, (NULL)eturnwait, or peekuttonwait (NULL)elects (NULL)";:[153][200](wb$,39);:[151]2023,125:[151]56295,3:[129]zp[178]217[164]242:[151]zp,128[176][194](zp):[130]:[158]51200:[153]"":[153]:[129]uu[178]1[164]bl:ch$[178][202](sq$,uu,1):[139]ch$[178]"r"[167][153][166]12)"(NULL)ead about it.":c[178]c[170]1
  139. 7060 [139]ch$[178]"e"[167][153][166]12)"(NULL)un it.":c[178]c[170]1
  140. 7070 [139]ch$[178]"q"[167][153][166]12)"ascorget about it.":c[178]c[170]1
  141. 7100 [130]:pq[178]1:sd[178]51209:su[178]51206:[151]b,0
  142. 7161 [161]a$:j%[178][168][194](j)[175]31:[139]j%[178].[175]a$[178]""[167]7161
  143. 7162 [151]b,0:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"dim"[176]j%[178]1[167][139]pq[177][178]2[167][158]sd:[158]sd:pq[178]pq[171]1:[137]7161
  144. 7164 [139]a$[178]""[176]a$[178]"cmd"[176]a$[178]"read"[176]j%[178]2[167][139]pq[179]bl[167][158]su:[158]su:pq[178]pq[170]1:[137]7161
  145. 7168 [139]a$[179][177][199](13)[175]a$[179][177]" "[175]j%[179][177]16[167]7161
  146. 7173 [141]63300:[139][202](sq$,pq,1)[178]"q"[167]po[178]1
  147. 7180 [139][202](sq$,pq,1)[178]"r"[167]8000
  148. 7190 [139][202](sq$,pq,1)[178]"e"[167]f$[178]"load"[170][199](34)[170]m$(mp,1)[170][199](34)[170]",8":[137]61000
  149. 8000 [142]:[144]
  150. 9999 [128]
  151. 10000 d[178][194](186):n$[178]"presenter":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  152. 50000 [153]"loadstop          (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)closeleft$ardcopy             ":[153]"str$o you have:":[153]:[153]"  lenommodore 1525":[153]"  lenommodore 1526":[153]"  lenommodore (NULL)(NULL)(NULL) 801":[153]"  (NULL)ymac lenonnection":[153]"  lenard/?closeatn, peek, or +chr$":[153]"  peekuslenard right$valvalval":[153]"or any other 1525-compatible setup?
  153. 50035 pokeb,.:waitb,1:geta$:ifa$="y"ora$="[217]"ora$=""ora$="[183]"thenpa=4:sa=7:c8%=-1:goto51000
  154. 50045 ifa$<>"n"anda$<>"[206]"anda$<>""anda$<>"[170]"then50035
  155. 50100 print"[147][196]o you have a [195]ommodore 1520?
  156. 50105 [151]b,.:[146]b,1:[161]a$:[139]a$[178]"y"[176]a$[178]"(NULL)"[176]a$[178]""[176]a$[178]"usr"[167]pa[178]6:sa[178]0:[137]51000
  157. 50115 [139]a$[179][177]"n"[175]a$[179][177]"(NULL)"[175]a$[179][177]""[175]a$[179][177]"+"[167]50105
  158. 50200 [153]"loadstr$o you have an old lenommodore 1515?
  159. 50205 pokeb,.:waitb,1:geta$:ifa$="y"ora$="[217]"ora$=""ora$="[183]"thenpa=4:sa=7:c8%=0:goto55000
  160. 50215 ifa$<>"n"anda$<>"[206]"anda$<>""anda$<>"[170]"then50205
  161. 50950 print"[147][201]n that case you just won't get any":print"hardcopy today, thank you!":fori=1to5000:next:goto5999
  162. 51000 ifc8%=.then55000
  163. 51005 print"[147][217]ou have a choice between having your":print"hardcopy in one column as it appears on":print"the screen, or in two columns using the":print"full width of your printer.  [196]o you want";:print"two-column hardcopy?
  164. 51035 [151]b,.:[146]b,1:[161]a$:[139]a$[178]"y"[176]a$[178]"(NULL)"[176]a$[178]""[176]a$[178]"usr"[167]55000
  165. 51045 [139]a$[179][177]"n"[175]a$[179][177]"(NULL)"[175]a$[179][177]""[175]a$[179][177]"+"[167]51035
  166. 51050 c8%[178].:[137]55000
  167. 55000 [153]"loadright$ am now ready to print your comments":[153]"to the printer hooked up as device"pa:[153]"secondary address"sa"cmd.  (NULL)lease make sure":[153]"that the printer is on-line and ready to";:[153]"go, then press the space bar.":[151]b,.:[146]b,1:[151]b,.:[139]mu%[167][141]2705
  168. 55025 [159]4,pa,sa:lc[178].:cl[178]1:[139]c8%[167]55100
  169. 55030 [129]i[178]1[164]ll:lc[178]lc[170]1:[139]lc[177]60[167][129]j[178]1[164]6:[152]4," ":[130]:lc[178]1
  170. 55035 [152]4,t$(i):[130]:[129]i[178]ll[164]65:[152]4," ":[130]:[137]55160
  171. 55100 [139]ll[171]cl[179]120[167]55150
  172. 55105 [129]i[178]cl[164]cl[170]59:t$[178]t$(i):[152]4,t$[166]42[171][195](t$))t$(i[170]60):[130]:[129]i[178]1[164]6:[152]4," ":[130]:cl[178]cl[170]120:[137]55100
  173. 55150 ch%[178](ll[171]cl[170]2)[173]2:[129]i[178]cl[164]cl[170]ch%[171]1:t$[178]t$(i):[152]4,t$[166]42[171][195](t$))t$(i[170]ch%):[130]:[129]i[178]1[164]4:[152]4," ":[130]
  174. 55160 [160]4:[139]mu%[167][141]2700
  175. 55165 [137]5999
  176. 59999 [151]56325,59:[128]
  177. 60000 ok[178]0:[129]ck[178]lp[164]lp[170]15:[139][200](t$(ck),4)[178]"\oad"[167]ok[178]1
  178. 60015 [139]ok[178]1[167]f$[178]"l"[170][202](t$(ck),2):[137]61000
  179. 60020 [130]:[137]2000
  180. 61000 mu%[178]0:[141]2705:[151]597,mp::po[178]0:[141]63100:[139]po[178]1[167]5900
  181. 61008 [151]v[170]21,0:[153]"load"f$:[153]"run":[151]631,13:[151]632,13:[151]b,2:[151]44,8:[151]56325,59:[128]
  182. 63000 [129]i[178].[164]24:[151]s[170]i,.:[130]:[151]s[170]1,100:[151]s[170]2,100:[151]s[170]5,10:[151]s[170]6,2:[151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]2[170]4,32:[142]
  183. 63002 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[151]s[170]1,40:[151]s[170]2,40:[151]s[170]5,10:[151]s[170]6,2:[151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]s[170]4,32:[142]
  184. 63100 [142]
  185. 63110 [153]"load(NULL)he diskette currently in your drive is":[139]i1$[179][177]"\"[167][153]"     not a regular (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) issue.":[137]63140
  186. 63130 [153]"         side "s$" of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"[197](n1$[170]n2$)
  187. 63140 [153]""[163]17[171][195](m$(mp,0))[173]2);"'"m$(mp,0)"' is on":[153]"         side "m$(mp,3)" of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) "mn$:[153]"        right$nsert that side, please":[153][166]19)"&":[153][166]12)"press space bar":[153]"   or press (NULL)val(NULL)(NULL)(NULL)(NULL)waitcloseto return to menu
  188. 63200 print:print"  ([201] suggest you turn the disk over.)":pokeb,.:waitb,1:getk$:ifk$<>" "thenpo=1:return
  189. 63220 print"[147]":goto63100
  190. 63230 close8:open8,8,8,"#":print#15,"ua:8 0 18 0":print#15,"b-p:8 154":get#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$,i2$:close8:return
  191. 63300 fori=.to24:pokes+i,.:next:pokes+1,100:pokes+2,100:pokes+5,10:pokes+6,2:pokev+21,1:pokes+24,15:pokes+4,33:fordl=1to600:next:poke2+4,32:pokev+21,2:return
  192.