home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 83 / SGDS 83.2mg / SDGS.83 / SDA83 / A / QND.BANNER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-06-22  |  13.3 KB  |  596 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 2  TEXT : PRINT  CHR$(21)
  2. 20  HOME : HGR2 : CALL 2304
  3. 200  POKE 48688, PEEK(0): POKE 48689, PEEK(1)
  4. 2000  POKE 104,26: GOTO 1
  5. 47520 32,5: POKE 33,15: HOME : GOSUB 1000
  6. 40  END 
  7. 53321 1 TO 40: PRINT "This is 
  8. 2249 H SPEED= 
  9. 26627  = 6 IF   AND <CTRL-0x08> -<CTRL-0x06> = - IF   OR <CTRL-0x08> -
  10. 53421 <CTRL-0x08> -<CTRL-0x02> = <CTRL-0x1f> IF  <<CTRL-0x08> -<CTRL-0x03> = <CTRL-0x18> IF  SGN<CTRL-0x08> -
  11. 425  PLOT 
  12. 2255  -` = <CTRL-0x03><UNKNOWN TOKEN>
  13. 43360 
  14. 24579 <CTRL-0x0a>
  15. 6 a<CTRL-0x02><CTRL-0x03>
  16. 2325  CHR$ GOSUB <CTRL-0x11><CTRL-0x10>
  17. 3098  USR GOSUB <CTRL-0x17><CTRL-0x0c>wsf<UNKNOWN TOKEN> HGR2 <CTRL-0x02> GOSUB <CTRL-0x04> COLOR= 
  18. 416  = 
  19. 65445  -<UNKNOWN TOKEN> =  MID$  INPUT <UNKNOWN TOKEN>`  SPEED=  AT  DEL  LEFT$ SPEED= <CTRL-0x0d> DEL  RIGHT$ VTAB 
  20. 34536  CHR$  INPUT <CTRL-0x0a> SPEED= 
  21. 9349  v<CTRL-0x09> i<CTRL-0x09> SPEED= ' DEL 
  22. 389 ` PLOT  DRAW <CTRL-0x0a> PLOT  XDRAW <CTRL-0x0a> J<UNKNOWN TOKEN><CTRL-0x0e> DRAW <CTRL-0x0a><UNKNOWN TOKEN>- ONERR $ -<UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x03> v<CTRL-0x09> ONERR % -<UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x03> i<CTRL-0x09> IF  XDRAW <CTRL-0x0a> - COLOR=  GOSUB <CTRL-0x03> h<CTRL-0x0a>  STORE <CTRL-0x09> = <CTRL-0x03> <CTRL-0x07><CTRL-0x0a> 0<CTRL-0x0a> =<CTRL-0x0a> R<CTRL-0x0a> ?<UNKNOWN TOKEN> IF  XDRAW <CTRL-0x0a>` ONERR %<CTRL-0x0a><CTRL-0x0a><CTRL-0x0a> PLOT  HPLOT <CTRL-0x0a> SPEED= <UNKNOWN TOKEN> DEL %` SPEED= 
  23. 42250 $<CTRL-0x18>e  PLOT  ROT= <CTRL-0x0a><CTRL-0x0e> ROT= <CTRL-0x0a>. SCALE= <CTRL-0x0a><CTRL-0x0e> ROT= <CTRL-0x0a>. SCALE= <CTRL-0x0a><CTRL-0x0e> ROT= <CTRL-0x0a>. SCALE= <CTRL-0x0a>8 IF  ROT= <CTRL-0x0a> VAL$ PLOT  ROT= <CTRL-0x0a> GOSUB <CTRL-0x03>  OR  SCALE= <CTRL-0x0a> SPEED= <UNKNOWN TOKEN> DEL $` ONERR  <CTRL-0x18>e! LET  * CLEAR <CTRL-0x1d><CTRL-0x0d> PLOT  MID$ <CTRL-0x09> CLEAR <UNKNOWN TOKEN><CTRL-0x0c><CTRL-0x18>i<CTRL-0x04> HGR2 <CTRL-0x03><UNKNOWN TOKEN> MID$ <CTRL-0x09> PLOT  RIGHT$<CTRL-0x09> IF  SCALE= <CTRL-0x0a> PLOT <UNKNOWN TOKEN><CTRL-0x09> IF  XDRAW <CTRL-0x0a>) LET  CLEAR E<CTRL-0x0d><CTRL-0x18>m ROT= <CTRL-0x0a> HGR2 <CTRL-0x03><UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x09> PLOT <UNKNOWN TOKEN><CTRL-0x09> <UNKNOWN TOKEN><CTRL-0x09> GOSUB <CTRL-0x03> SPEED= <CTRL-0x01>` SPEED= 
  24. 30465 
  25. 52489 <UNKNOWN TOKEN><CTRL-0x09> HGR2 <CTRL-0x0f><UNKNOWN TOKEN><CTRL-0x02><CTRL-0x18>` IF  RIGHT$<CTRL-0x09>  AND <UNKNOWN TOKEN><CTRL-0x09> HGR2 <CTRL-0x03>L<UNKNOWN TOKEN><CTRL-0x09>8` DEF  RESUME # * PR# <CTRL-0x0a><CTRL-0x0a><CTRL-0x0a> PLOT <CTRL-0x06><CTRL-0x0a> IF  HPLOT <CTRL-0x0a>  AND <CTRL-0x06><CTRL-0x0a> GOSUB <CTRL-0x0c><CTRL-0x18> IF  HPLOT <CTRL-0x0a>i<CTRL-0x08> PLOT  HPLOT <CTRL-0x0a>L(<CTRL-0x0a>  SHLOAD <CTRL-0x0a> SPEED= 
  26. 30240 <CTRL-0x09>` RUN  SCALE= <CTRL-0x0a> RESTORE  ROT= <CTRL-0x0a> IF  HPLOT <CTRL-0x0a> <CTRL-0x11><UNKNOWN TOKEN>` RUN  DRAW <CTRL-0x0a><CTRL-0x18> RETURN  LEFT$i AT  LET  + RETURN  LEFT$i<CTRL-0x0d> STORE  SPEED= 
  27. 24822  IF  XDRAW <CTRL-0x0a>) STORE <CTRL-0x18> POKE E<CTRL-0x0d>m ROT= <CTRL-0x0a> PLOT  ROT= <CTRL-0x0a> HGR2 <CTRL-0x03><UNKNOWN TOKEN> SCALE= <CTRL-0x0a>` - PLOT  = <CTRL-0x04> <CTRL-0x07><CTRL-0x0a>` - CALL  = <CTRL-0x03> <CTRL-0x0d><CTRL-0x0b> - DRAW  = <CTRL-0x03>  INPUT <CTRL-0x0a> SPEED= 
  28. 24586  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL # SPEED= 
  29. 8325 ` ROT= <CTRL-0x1a> PLOT 
  30. 42240 "<CTRL-0x0a><CTRL-0x0a><CTRL-0x0a> LET  ONERR #8 RIGHT$<CTRL-0x01><CTRL-0x0a><CTRL-0x0a><CTRL-0x0a> DEL  SCRN(  CLEAR u<CTRL-0x0b><CTRL-0x18>e ASC DEL ' CLEAR 5<CTRL-0x0c><CTRL-0x18>e  DEL & CLEAR }<CTRL-0x0b><CTRL-0x18>e ASC DEL <CTRL-0x07> CLEAR =<CTRL-0x0c><CTRL-0x18>e  DEL <CTRL-0x06> COLOR= 
  31. 9873  +  THEN ! = <UNKNOWN TOKEN> LEFT$ STR$ SCRN(  =  =  ONERR  SCRN( <CTRL-0x18>i<CTRL-0x07> LET   NOT  SCRN(  CLEAR u<CTRL-0x0b><CTRL-0x18>e ASC DEL ' CLEAR 5<CTRL-0x0c><CTRL-0x18>e  DEL & COLOR= 
  32. 16329 <UNKNOWN TOKEN><CTRL-0x04> SPEED= 
  33. 65449  HGR & +  THEN ! = <UNKNOWN TOKEN> * STR$ SCRN(  =  FRE` PR# H ROT= H VTAB <CTRL-0x03> ONERR " DEL  ABS h<CTRL-0x0b> ONERR  ABS DEL <UNKNOWN TOKEN> VTAB <CTRL-0x03> ONERR # DEL  ABS h<CTRL-0x0b> ONERR  ABS DEL <UNKNOWN TOKEN> ONERR  <CTRL-0x18>e! DEL <UNKNOWN TOKEN> RESUME <UNKNOWN TOKEN> LOMEM:   CLEAR u<CTRL-0x0b><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> CLEAR 5<CTRL-0x0c> DEL <UNKNOWN TOKEN> ONERR 2 -?<UNKNOWN TOKEN><CTRL-0x04> SPEED= 
  34. 65449  HGR <UNKNOWN TOKEN> +  THEN <UNKNOWN TOKEN> = <UNKNOWN TOKEN> LEFT$ STR$<UNKNOWN TOKEN> =  POS RESUME " DIM % RESUME   DIM $h STORE h LET `<CTRL-0x06> ABS<CTRL-0x06> USR<CTRL-0x06> ABS<CTRL-0x06> USR<CTRL-0x06> ABS<CTRL-0x06> USR`
  35. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  36. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  37. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  38. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  39. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  40. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  41. 32896  END  END  END  END  END 
  42. 32896  END  END  END  END  END 
  43. 32896  END  END  END  END  END 
  44. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = 
  45. 7189 #*18?FMT[bipw~ DEL  CALL  HPLOT  SHLOAD  POP  STORE  &  LOAD  CLEAR   THEN / SGN POS TAN CHR$<UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x03><CTRL-0x0a><CTRL-0x11>
  46. 1 
  47. 2568 <CTRL-0x07><CTRL-0x08><CTRL-0x07><CTRL-0x04><CTRL-0x05><CTRL-0x05><CTRL-0x08><CTRL-0x08><CTRL-0x05><CTRL-0x06><CTRL-0x04><CTRL-0x07><CTRL-0x08><CTRL-0x05><CTRL-0x07><CTRL-0x07><CTRL-0x08><CTRL-0x07><CTRL-0x08><CTRL-0x07><CTRL-0x08><CTRL-0x08><CTRL-0x04><CTRL-0x05><CTRL-0x07><CTRL-0x07><CTRL-0x07><CTRL-0x08><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x07><CTRL-0x07><CTRL-0x08><CTRL-0x08><CTRL-0x06><CTRL-0x08><CTRL-0x09><CTRL-0x07><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x06><CTRL-0x08><CTRL-0x06><CTRL-0x08><CTRL-0x07><CTRL-0x05><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x07><CTRL-0x08><CTRL-0x08><CTRL-0x04><CTRL-0x06><CTRL-0x08><CTRL-0x06><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x07><CTRL-0x07><CTRL-0x07><CTRL-0x08><CTRL-0x08><CTRL-0x09><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x06><CTRL-0x04><CTRL-0x06><CTRL-0x08><CTRL-0x07>
  48. 264 <CTRL-0x0c><CTRL-0x01><CTRL-0x10><CTRL-0x01><CTRL-0x14><CTRL-0x01><CTRL-0x18><CTRL-0x01><CTRL-0x1c><CTRL-0x01> <CTRL-0x01>$<CTRL-0x01>(<CTRL-0x01>,<CTRL-0x01>0<CTRL-0x01>4<CTRL-0x01>8<CTRL-0x01><<CTRL-0x01>@<CTRL-0x01>D<CTRL-0x01>H<CTRL-0x01>L<CTRL-0x01>P<CTRL-0x01>T<CTRL-0x01>X<CTRL-0x01>\<CTRL-0x01>`<CTRL-0x01>d<CTRL-0x01>h<CTRL-0x01>l<CTRL-0x01>p<CTRL-0x01>t<CTRL-0x01>x<CTRL-0x01>|<CTRL-0x01> DRAW <CTRL-0x01> POP <CTRL-0x01> & <CTRL-0x01> SPC( <CTRL-0x01> LOG<CTRL-0x01><UNKNOWN TOKEN><CTRL-0x01><CTRL-0x09><CTRL-0x02><CTRL-0x1c><CTRL-0x02>-<CTRL-0x02>=<CTRL-0x02>U<CTRL-0x02>k<CTRL-0x02>}<CTRL-0x02> PR# <CTRL-0x02> HOME <CTRL-0x02> RECALL <CTRL-0x02> CONT <CTRL-0x02> ABS<CTRL-0x02> LEFT$<CTRL-0x02><UNKNOWN TOKEN><CTRL-0x02><CTRL-0x0b><CTRL-0x03>!<CTRL-0x03>5<CTRL-0x03>L<CTRL-0x03>_<CTRL-0x03>w<CTRL-0x03> VLIN <CTRL-0x03> NORMAL <CTRL-0x03> RETURN <CTRL-0x03> TAB( <CTRL-0x03> ><CTRL-0x03> COS<CTRL-0x03><UNKNOWN TOKEN><CTRL-0x03><CTRL-0x14><CTRL-0x04>.<CTRL-0x04>G<CTRL-0x04>]<CTRL-0x04>v<CTRL-0x04> PR# <CTRL-0x04> NORMAL <CTRL-0x04> ON <CTRL-0x04>  AND <CTRL-0x04> EXP<CTRL-0x04><UNKNOWN TOKEN><CTRL-0x04><CTRL-0x0d><CTRL-0x05><CTRL-0x1e><CTRL-0x05>;<CTRL-0x05>T<CTRL-0x05>m<CTRL-0x05> DATA <CTRL-0x05> NORMAL <CTRL-0x05> LOAD <CTRL-0x05>  AND <CTRL-0x05> COS<CTRL-0x05><UNKNOWN TOKEN><CTRL-0x05><CTRL-0x0e><CTRL-0x06>+<CTRL-0x06>D<CTRL-0x06>Y<CTRL-0x06>k<CTRL-0x06>|<CTRL-0x06> IN# <CTRL-0x06> NOTRACE <CTRL-0x06> GOTO <CTRL-0x06> LIST <CTRL-0x06>  STEP <CTRL-0x06> RND<CTRL-0x06><UNKNOWN TOKEN><CTRL-0x06><CTRL-0x05><CTRL-0x07><CTRL-0x1e><CTRL-0x07>2<CTRL-0x07>E<CTRL-0x07>\<CTRL-0x07>r<CTRL-0x07> END <CTRL-0x07> HCOLOR= <CTRL-0x07> STORE <CTRL-0x07> DEF <CTRL-0x07> = <CTRL-0x07> VAL<CTRL-0x07><UNKNOWN TOKEN><CTRL-0x07><CTRL-0x0f><CTRL-0x08>$<CTRL-0x08>4<CTRL-0x08>F<CTRL-0x08>X<CTRL-0x08>l<CTRL-0x08> END <CTRL-0x08> ROT= <CTRL-0x08> GOTO <CTRL-0x08> FN <CTRL-0x08> INT<CTRL-0x08> PEEK<CTRL-0x08><UNKNOWN TOKEN><CTRL-0x08>
  49. 265 
  50. 1 <CTRL-0x04>
  51. 4 <CTRL-0x01>
  52. 1 <CTRL-0x04>
  53. 4 <CTRL-0x01>
  54. 1 <CTRL-0x04>
  55. 4 <CTRL-0x01>
  56. 1 <CTRL-0x04>
  57. 4 <CTRL-0x01>
  58. 1 <CTRL-0x04>
  59. 4 <CTRL-0x01>
  60. 1 <CTRL-0x04>
  61. 4 <CTRL-0x01>
  62. 1 <CTRL-0x04>
  63. 4 <CTRL-0x01>
  64. 1 <CTRL-0x04>
  65. 4 <CTRL-0x01>
  66. 1 <CTRL-0x04>
  67. 4 <CTRL-0x01>
  68. 1 <CTRL-0x04>
  69. 4 <CTRL-0x01>
  70. 16 <CTRL-0x10>
  71. 16 <CTRL-0x10>
  72. 16 <CTRL-0x10>
  73. 16 <CTRL-0x01>
  74. 35081  HCOLOR=  HCOLOR= 
  75. 10 <CTRL-0x01>
  76. 14133 57<UNKNOWN TOKEN>*N
  77. 1 <CTRL-0x04>
  78. 57150 7m) HTAB R<CTRL-0x01>
  79. 1558 
  80. 4 I TEXT <UNKNOWN TOKEN> NEW ---<CTRL-0x1e><UNKNOWN TOKEN> NEW ---<CTRL-0x1e><UNKNOWN TOKEN> SAVE II<CTRL-0x01>
  81. 1024 
  82. 48959 m:w)<CTRL-0x1e>?wuI<CTRL-0x01>
  83. 10605 > SINw<CTRL-0x09><UNKNOWN TOKEN> NEW m<CTRL-0x11><UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  84. 6 <CTRL-0x01>
  85. 44297 ? NEW m: NEW m<CTRL-0x11>?wu<CTRL-0x09>
  86. 1024 
  87. 37557 <CTRL-0x09>
  88. 51400 <CTRL-0x17><CTRL-0x06>
  89. 4 )><CTRL-0x17>57 IF 7u<CTRL-0x01>
  90. 1 <CTRL-0x04>
  91. 14133 <UNKNOWN TOKEN>7u<CTRL-0x09>
  92. 51246  +<CTRL-0x04> +<CTRL-0x0c> HTAB 2
  93. 4 <CTRL-0x09>m: SINw-<UNKNOWN TOKEN> NEW - IF <UNKNOWN TOKEN>;NuI
  94. 1 <CTRL-0x04>
  95. 36142 ??w)>VI<CTRL-0x01>
  96. 1024 
  97. 11834 <CTRL-0x1e>o<CTRL-0x09>
  98. 1024 
  99. 46911 RI<CTRL-0x01>
  100. 1024 
  101. 30007 <CTRL-0x01>
  102. 51205 <CTRL-0x04>
  103. 4 I<CTRL-0x11>7<UNKNOWN TOKEN> NEW <UNKNOWN TOKEN>7uI<CTRL-0x01>
  104. 1566 
  105. 4 )-<CTRL-0x15><UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  106. 1024 
  107. 13687 757u<CTRL-0x01>
  108. 10935 %
  109. 4 - IF 7<UNKNOWN TOKEN> NEW <UNKNOWN TOKEN>7--N<CTRL-0x01>
  110. 44333 7<UNKNOWN TOKEN>?N5<UNKNOWN TOKEN><CTRL-0x13>-u<CTRL-0x09>
  111. 1024 
  112. 57150 7m)> SIN7--57u<CTRL-0x01>
  113. 1024 
  114. 15326 .-<CTRL-0x15>75<UNKNOWN TOKEN><CTRL-0x13>-u<CTRL-0x09>
  115. 1024 
  116. 49118 m<CTRL-0x11>??.M5<UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  117. 1024 
  118. 5950 <UNKNOWN TOKEN>757uI
  119. 62 <CTRL-0x01>
  120. 11561 <CTRL-0x15><UNKNOWN TOKEN>;.M<UNKNOWN TOKEN>? NEW m)> SINw-u<CTRL-0x09>
  121. 1024 
  122. 65301 ;.M5??N)<CTRL-0x1e><UNKNOWN TOKEN>*uI
  123. 1 <CTRL-0x04>
  124. 10997 >V<CTRL-0x09>
  125. 1 <CTRL-0x04>
  126. 14967 .<CTRL-0x1e>o<CTRL-0x09>
  127. 1480  +<CTRL-0x05>
  128. 4 I<UNKNOWN TOKEN> NEW <UNKNOWN TOKEN>w IF wu<CTRL-0x01>
  129. 1024 
  130. 56877  TRACE -- HTAB <CTRL-0x09>
  131. 1024 
  132. 49069 <UNKNOWN TOKEN> NEW uI<CTRL-0x01>
  133. 1024 
  134. 65301 ;N<CTRL-0x09><UNKNOWN TOKEN> NEW <UNKNOWN TOKEN>*N<CTRL-0x09>
  135. 51400 <CTRL-0x15>66
  136. 4 )- IF <UNKNOWN TOKEN><CTRL-0x1b>7m)5? SIN7m)<UNKNOWN TOKEN> RND;<CTRL-0x0e>--N<CTRL-0x01>
  137. 1024 
  138. 65301 ;.M5<UNKNOWN TOKEN>;.--> SIN7m)N
  139. 1 <CTRL-0x04>
  140. 65301 ;.M<UNKNOWN TOKEN>??.M5<UNKNOWN TOKEN>;.-u<CTRL-0x09>
  141. 1024 
  142. 65301 ;.>.M<CTRL-0x11><UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  143. 1024 
  144. 65301 ;.M5<UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.-u<CTRL-0x09>
  145. 1024 
  146. 15326 . PLOT ?757--N
  147. 1 <CTRL-0x04>
  148. 15326 . PLOT ?757uI<CTRL-0x01>
  149. 1024 
  150. 65301 ;.>.M5<UNKNOWN TOKEN>;<CTRL-0x0e>--N
  151. 1 <CTRL-0x04>
  152. 57150 7m)>??.M5<UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  153. 1024 
  154. 13623 75 NEW -u<CTRL-0x01>
  155. 1024 
  156. 11838 >.> SINw-u<CTRL-0x09>
  157. 1480 
  158. 4 m<CTRL-0x09><UNKNOWN TOKEN><UNKNOWN TOKEN>;.-5??.M IF <UNKNOWN TOKEN><CTRL-0x1b>7m<CTRL-0x09>u<CTRL-0x01>
  159. 1024 
  160. 14133 57--N
  161. 256 
  162. 2413 5???.--5<UNKNOWN TOKEN><CTRL-0x1f>7m<CTRL-0x09>5<UNKNOWN TOKEN><CTRL-0x1b>7m<CTRL-0x09>u<CTRL-0x01>
  163. 1024 
  164. 65301 ;.M5<UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  165. 1024 
  166. 65301 ;.M5<UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  167. 1024 
  168. 65301 ;.M<UNKNOWN TOKEN>??.>.NI<CTRL-0x01>
  169. 1024 
  170. 65301 ;.M5<UNKNOWN TOKEN>;.--> SINw--u<CTRL-0x01>
  171. 1024 
  172. 65301 ;.M<UNKNOWN TOKEN>??.M5<UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  173. 1024 
  174. 65301 ;.M:?N)> SINw-u<CTRL-0x09>
  175. 1024 
  176. 15349 .>.>.N<CTRL-0x09>
  177. 1024 
  178. 57150 7m)> SIN7m)> SINw-u<CTRL-0x09>
  179. 1024 
  180. 57150 7m)> SIN7m)<CTRL-0x1e>?wuI
  181. 1 <CTRL-0x04>
  182. 65333 <CTRL-0x1b>7m<CTRL-0x09>5<UNKNOWN TOKEN><CTRL-0x1f>7--->??7m<CTRL-0x09>u<CTRL-0x01>
  183. 1024 
  184. 57150 7m)<CTRL-0x1e>? NEW m)> SIN7m)N
  185. 1 <CTRL-0x04>
  186. 57150 7m)<CTRL-0x1e>?w57uI
  187. 1 <CTRL-0x04>
  188. 48949 <UNKNOWN TOKEN> NEW <UNKNOWN TOKEN>7--u<CTRL-0x01>
  189. 1024 
  190. 11835 >.>.-N<CTRL-0x01>
  191. 30517  IF w IF 7u<CTRL-0x01>
  192. 1 <CTRL-0x04>
  193. 13623 75<UNKNOWN TOKEN>*-N<CTRL-0x01>
  194. 44297 ? NEW m) HTAB R<CTRL-0x01>
  195. 1024 
  196. 18761 :??oII
  197. 1 <CTRL-0x04>
  198. 37557 <CTRL-0x09>
  199. 1024 
  200. 65453 <CTRL-0x13>--> SINw--N
  201. 1 <CTRL-0x04>
  202. 11565 <CTRL-0x15><UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.-u<CTRL-0x09>
  203. 1024 
  204. 65453 ;.M<CTRL-0x11><UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  205. 1024 
  206. 57150 *-5<UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;<CTRL-0x0e>--N
  207. 1 <CTRL-0x04>
  208. 65453 ;.-- COS<CTRL-0x1b>w-u<CTRL-0x09>
  209. 1024 
  210. 14302 m:?w57uI
  211. 1 <CTRL-0x04>
  212. 15917  SIN7m)>?w<CTRL-0x09><UNKNOWN TOKEN>?oI<CTRL-0x01>
  213. 1024 
  214. 11565 <CTRL-0x15><UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  215. 1024 
  216. 11838 >.N
  217. 1 <CTRL-0x04>
  218. 11539 >.>.<CTRL-0x1e>?M<CTRL-0x09>
  219. 1024 
  220. 10605 > SIN7--<CTRL-0x15><UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  221. 1024 
  222. 15918 .><CTRL-0x17>-u<CTRL-0x01>
  223. 1024 
  224. 13577 ???.<CTRL-0x0d><CTRL-0x0d>5<UNKNOWN TOKEN><CTRL-0x1b>7m<CTRL-0x09>u<CTRL-0x01>
  225. 1024 
  226. 5421 <UNKNOWN TOKEN>;.M5<UNKNOWN TOKEN>;.Mu<CTRL-0x01>
  227. 1024 
  228. 65453 ;.M5<UNKNOWN TOKEN>;<CTRL-0x0e>-u<CTRL-0x09>
  229. 1024 
  230. 5421 <UNKNOWN TOKEN>;.M<UNKNOWN TOKEN>??.>MI<CTRL-0x01>
  231. 1024 
  232. 15917  SIN7m)>?w<CTRL-0x09>5o<CTRL-0x01>
  233. 1024 
  234. 7157 757uI<CTRL-0x01>
  235. 1024 
  236. 7157 w-<CTRL-0x15><UNKNOWN TOKEN><CTRL-0x13>-u<CTRL-0x09>
  237. 1024 
  238. 11543 - COS75w-N
  239. 1 <CTRL-0x04>
  240. 15913  SIN7m)> SINw-u<CTRL-0x09>
  241. 1024 
  242. 15913  SIN7m)<CTRL-0x1e>?wuI
  243. 1 <CTRL-0x04>
  244. 13577 <UNKNOWN TOKEN><CTRL-0x1b>7m<CTRL-0x0d>5???.M)N
  245. 1 <CTRL-0x04>
  246. 7721 ?w IF ? NEW m)N
  247. 1 <CTRL-0x04>
  248. 15913  SIN7m)>?w<CTRL-0x09><UNKNOWN TOKEN>?oI<CTRL-0x01>
  249. 1024 
  250. 62765  NEW <UNKNOWN TOKEN> NEW --u<CTRL-0x01>
  251. 1024 
  252. 62775 w5wu<CTRL-0x01>
  253. 1024 
  254. 14133 575o<CTRL-0x01>
  255. 1024 
  256. 49069 5 NEW uI
  257. 1 <CTRL-0x04>
  258. 16186 ?N) HTAB R<CTRL-0x09>
  259. 1024 
  260. 16190 7-->?7-->?7--N
  261. 62853  Gi GOSUB <CTRL-0x1a> Yi GOSUB <CTRL-0x15> SPEED= * DEL <UNKNOWN TOKEN> Gi Co /<CTRL-0x18> HLIN *<CTRL-0x19> /<CTRL-0x18> HLIN )<CTRL-0x19> /<CTRL-0x18> HLIN +<CTRL-0x19> /<CTRL-0x18> TAN HGR2 <CTRL-0x05> VTAB 5L<CTRL-0x12> ABS HLIN ,<CTRL-0x19> IF )<CTRL-0x19> PLOT !<CTRL-0x19> IF *<CTRL-0x19> PLOT "<CTRL-0x19> SPEED= 
  262. 43289 
  263. 44313 "<CTRL-0x19> DEL $ IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> SPEED=  SIN <UNKNOWN TOKEN><UNKNOWN TOKEN> SPEED= <CTRL-0x17> <UNKNOWN TOKEN><CTRL-0x18> SPEED= 
  264. 8877 <CTRL-0x19> DEL $ IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> SPEED=  SIN <UNKNOWN TOKEN><UNKNOWN TOKEN> IF 
  265. 36992  =  PLOT &<CTRL-0x19> PLOT <CTRL-0x10> TAB(  - GR  = <CTRL-0x02> SPEED= <UNKNOWN TOKEN> PLOT &<CTRL-0x19> IF &<CTRL-0x19> - PLOT  = <CTRL-0x03>L
  266. 6438  - ROT=  = <CTRL-0x17> IF $<CTRL-0x19> PLOT (<CTRL-0x19>  OR (<CTRL-0x19><UNKNOWN TOKEN><CTRL-0x06> ;<CTRL-0x18>L PLOT <CTRL-0x17> ;<CTRL-0x18>L7<CTRL-0x17> IF &<CTRL-0x19> - TRACE  = ' IF $<CTRL-0x19> PLOT (<CTRL-0x19>  OR (<CTRL-0x19><UNKNOWN TOKEN><CTRL-0x06> ;<CTRL-0x18>L GOTO <CTRL-0x17> ;<CTRL-0x18> IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> IF "<CTRL-0x19> DEL $ SPEED=  SIN <UNKNOWN TOKEN><UNKNOWN TOKEN>L
  267. 6438  -<UNKNOWN TOKEN> = <CTRL-0x06> ;<CTRL-0x18>L7<CTRL-0x17> IF &<CTRL-0x19> - COLOR=  GOSUB <CTRL-0x03>L7<CTRL-0x17> IF $<CTRL-0x19>  AND ,<CTRL-0x19> = <CTRL-0x06>  USR<CTRL-0x18>L7<CTRL-0x17> IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> IF "<CTRL-0x19> DEL $ IF &<CTRL-0x19> <UNKNOWN TOKEN><UNKNOWN TOKEN> IF &<CTRL-0x19>) RESTORE $<CTRL-0x19> NORMAL <CTRL-0x01><CTRL-0x02><UNKNOWN TOKEN>"<CTRL-0x19><UNKNOWN TOKEN>$<CTRL-0x19><UNKNOWN TOKEN>#<CTRL-0x19> IF +<CTRL-0x19> PLOT %<CTRL-0x19><UNKNOWN TOKEN>%<CTRL-0x19> IF #<CTRL-0x19>  AND %<CTRL-0x19> GOSUB <CTRL-0x03>L8<CTRL-0x18> SPEED= 
  268. 44313 *<CTRL-0x19> PLOT "<CTRL-0x19><UNKNOWN TOKEN>!<CTRL-0x19>L7<CTRL-0x17> J<UNKNOWN TOKEN> IF *<CTRL-0x19>  AND "<CTRL-0x19> = <CTRL-0x0b> IF )<CTRL-0x19>  AND !<CTRL-0x19> = <CTRL-0x03>L  STEP <CTRL-0x18> IF $<CTRL-0x19> -<CTRL-0x01> = +  OR "<CTRL-0x19> IF "<CTRL-0x19> DEL $ IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> IF <CTRL-0x01><CTRL-0x02> <UNKNOWN TOKEN><UNKNOWN TOKEN> IF *<CTRL-0x19> PLOT "<CTRL-0x19> IF )<CTRL-0x19> PLOT !<CTRL-0x19> SPEED= 
  269. 36121 #<CTRL-0x19><CTRL-0x18> HGR2 D RESTORE $<CTRL-0x19> * CLEAR <CTRL-0x01><CTRL-0x02> PLOT '<CTRL-0x19>  OR "<CTRL-0x19> IF "<CTRL-0x19>  AND *<CTRL-0x19> GOSUB <CTRL-0x0d><CTRL-0x18> IF *<CTRL-0x19>m+<CTRL-0x19> PLOT "<CTRL-0x19>  OR !<CTRL-0x19>  OR #<CTRL-0x19> IF #<CTRL-0x19><CTRL-0x10><CTRL-0x06> IF +<CTRL-0x19> PLOT #<CTRL-0x19>  OR $<CTRL-0x19> IF "<CTRL-0x19> DEL $ IF !<CTRL-0x19> <UNKNOWN TOKEN><CTRL-0x18> IF '<CTRL-0x19> <UNKNOWN TOKEN><UNKNOWN TOKEN> ?<UNKNOWN TOKEN>`  GET  COS { EXP <UNKNOWN TOKEN> ASC`H PR# H ROT= H VTAB <CTRL-0x0a> SPEED= P  STORE <UNKNOWN TOKEN> PLOT 0 TAB(  * = <UNKNOWN TOKEN> VTAB <CTRL-0x14> SPEED= 2  STORE <UNKNOWN TOKEN> PLOT 0 TAB(  * = <UNKNOWN TOKEN>h STORE h LET h` DEL % "<UNKNOWN TOKEN>`  GET  COS  LEN SIN l EXP DEL  DEL  INPUT  DIM  RESTORE $<CTRL-0x19> SPEED= 
  270. 43522  SPEED= <CTRL-0x01> COLOR= <CTRL-0x02>  RIGHT$ LEN  SHLOAD  SQR`<CTRL-0x0c><CTRL-0x11><CTRL-0x0e><CTRL-0x0e># PLOT h
  271. 32290 bloadfnt.boldgs,a24576": DIM M$(11)
  272. 3  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1)
  273. 4 TEX$ =  CHR$(20):HOM$ =  CHR$(12):D$ =  CHR$(4)
  274. 5 KS = 49168:KB = 49152
  275. 6 CR$ =  CHR$(13):UP$ =  CHR$(11):DN$ =  CHR$(10):BS$ =  CHR$(8):FS$ =  CHR$(21)
  276. 7 MP = 2278: REM poke254,byte:255,bit:
  277. 1  LOMEM: 25600: ONERR  GOTO 63500
  278. 2  PRINT  CHR$(21): PRINT  CHR$(4)"bloadfnt.boldgs,a24576": DIM M$(12):PW = 4:IV = 0
  279. 3  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): ONERR  GOTO 63500
  280. 4  PRINT  CHR$(4)"PREFIX": INPUT K$: PRINT  CHR$(4)"PREFIX"K$:TEX$ =  CHR$(20):HOM$ =  CHR$(12):D$ =  CHR$(4)
  281. 5 KS = 49168:KB = 49152:OF$ = "Operation failed. Press a key."
  282. 6 CR$ =  CHR$(13):UP$ =  CHR$(11):DN$ =  CHR$(10):BS$ =  CHR$(8):FS$ =  CHR$(21):ES$ =  CHR$(27)
  283. 7 MP = 2278: REM poke254,byte:255,bit:callmp:peek(254),result
  284. 8 IP = 5888: REM CALLIP,H,V,WID,LEN,STRIN$
  285. 10  PRINT TEX$HOM$
  286. 20  INVERSE : POKE 35,5: PRINT HOM$
  287. 30  VTAB 2: HTAB 11: PRINT "Q & D Banner Thing"
  288. 40  VTAB 4: HTAB 5: PRINT " By Jim Weiler (c) 1988, Softdisk"
  289. 41  HCOLOR= 4: HPLOT 2,1 TO 277,1 TO 277,38 TO 2,38 TO 2,1: HPLOT 3,1 TO 3,38: HPLOT 276,1 TO 276,38
  290. 42  HPLOT 6,3 TO 273,3 TO 273,36 TO 6,36 TO 6,3: HPLOT 7,3 TO 7,36: HPLOT 272,3 TO 272,36
  291. 50  PRINT TEX$
  292. 60  GOSUB 61000: REM menu
  293. 130  GOSUB 62000: REM prompt
  294. 170  PRINT TEX$
  295. 185 M1 = 1
  296. 188  POKE KS,0
  297. 190  GOSUB 10000: REM cursor menu
  298. 200  ON M1 GOSUB 16000,17000,18000,21000,17000,11000,12000,11000,11000,14000,15000,20000
  299. 210  IF PR  THEN  NORMAL :PR = 0: GOTO 3
  300. 300  GOTO 190
  301. 9999  REM <CTRL-0x0a>scroll menu<CTRL-0x0a>
  302. 10000  VTAB 8 +M1
  303. 10010  HTAB 14
  304. 10020  PRINT M$(M1)
  305. 10030  VTAB 8 +M1
  306. 10040  HTAB 14
  307. 10050  PRINT M$(M1)
  308. 10060  IF  PEEK(KB) <128  THEN 10000
  309. 10070  GET K$
  310. 10075 M2 = M1
  311. 10080  IF K$ = DN$  OR K$ = FS$  THEN M1 = M1 +1: IF M1 = 13  THEN M1 = 1
  312. 10090  IF K$ = UP$  OR K$ = BS$  THEN M1 = M1 -1: IF M1 = 0  THEN M1 = 12
  313. 10100  IF K$ = CR$  THEN 10120
  314. 10110  IF M2 = M1  THEN  GOSUB 63000
  315. 10115  GOTO 10000
  316. 10120  RETURN 
  317. 10999  REM <CTRL-0x0a>cat<CTRL-0x0a>
  318. 11000  NORMAL : POKE 34,5: POKE 35,24: PRINT HOM$: GOSUB 62100
  319. 11002  VTAB 23: HTAB 2: PRINT "Press a key to pause, [ESC] to cancel.": POKE 34,5: POKE 35,21
  320. 11010  PRINT D$"PREFIX": INPUT PF$
  321. 11020  NORMAL : PRINT HOM$;
  322. 11030  IF M1 = 6  THEN  PRINT "Catalog of files in "PF$
  323. 11032  IF M1 = 8  THEN  PRINT "Catalog of fonts in "PF$
  324. 11034  IF M1 = 9  THEN  PRINT "Catalog of banners in "PF$
  325. 11040  IF PF$ = "/RAM"  THEN  PRINT "/RAM not allowed.": GOTO 11130
  326. 11050  PRINT " Name";: HTAB 22: PRINT "Type";: HTAB 29: PRINT "Blocks"
  327. 11060  POKE 34,8: PRINT HOM$
  328. 11070  PRINT D$"open"PF$",tdir"
  329. 11080  PRINT D$"read"PF$
  330. 11090  INPUT K$,K$,K$
  331. 11100  INPUT K$: IF K$ = ""  THEN 11130
  332. 11105  IF  PEEK(KB) >128  THEN  POKE KS,0: ON  PEEK(KB) = 27 GOTO 11130: HTAB 12: PRINT "Press a key";: HTAB 1: WAIT KB,128: HTAB 12: PRINT "Press a key";: HTAB 1: POKE KS,0
  333. 11110  IF M1 = 6  THEN  PRINT  LEFT$(K$,16);: HTAB 22: PRINT  MID$ (K$,18,3);: HTAB 29: PRINT  MID$ (K$,22,7)
  334. 11111  IF M1 = 8  THEN  IF  MID$ (K$,18,3) = "BIN"  THEN  IF  MID$ (K$,64,8) = "     768"  THEN  PRINT  LEFT$(K$,16);: HTAB 22: PRINT  MID$ (K$,18,3);: HTAB 29: PRINT  MID$ (K$,22,7)
  335. 11112  IF M1 = 9  THEN  IF  MID$ (K$,18,3) = "BIN"  AND  MID$ (K$,64,8) = "    1024"  AND  MID$ (K$,73,7) = "A=$6000"  THEN  PRINT  LEFT$(K$,16);: HTAB 22: PRINT  MID$ (K$,18,3);: HTAB 29: PRINT  MID$ (K$,22,7)
  336. 11120  GOTO 11100
  337. 11130  PRINT D$"close": ON  PEEK(KB) = 27 GOTO 11155
  338. 11140  HTAB 12: PRINT "Press a key";
  339. 11150  GET K$
  340. 11155  POKE 34,5: POKE 35,24
  341. 11160  PRINT HOM$
  342. 11170  GOSUB 61000: GOSUB 62000
  343. 11180  RETURN 
  344. 11999  REM <CTRL-0x0a>chg drv<CTRL-0x0a>
  345. 12000  POKE 34,5: POKE 35,21: NORMAL : PRINT HOM$
  346. 12005 M1$(1) = "Set Slot and Drive":M1$(2) = "Set Prefix":M1$(3) = "Exit to Main Menu"
  347. 12010 X2 = 1
  348. 12020  POKE 34,5: POKE 35,21: VTAB 7: HTAB 14: PRINT "Change Drive"
  349. 12030  FOR X1 = 1 TO 3
  350. 12032  VTAB 8 +X1
  351. 12034  HTAB 14
  352. 12036  PRINT M1$(X1)
  353. 12038  NEXT 
  354. 12040  VTAB 8 +X2
  355. 12044  HTAB 14: PRINT M1$(X2);: HTAB 14: PRINT M1$(X2);
  356. 12046  IF  PEEK(KB) <128  THEN 12044
  357. 12048  GET K$
  358. 12050 X3 = X2
  359. 12052  IF K$ = DN$  OR K$ = FS$  THEN X2 = X2 +1: IF X2 = 4  THEN X2 = 1
  360. 12054  IF K$ = UP$  OR K$ = BS$  THEN X2 = X2 -1: IF X2 = 0  THEN X2 = 3
  361. 12056  IF K$ = CR$  THEN 12060
  362. 12057  IF K$ = ES$  THEN X2 = 3: GOTO 12060
  363. 12058  IF X3 = X2  THEN  GOSUB 63000
  364. 12059  GOTO 12040
  365. 12060 XX = 0: ON X2 GOSUB 12100,12300,12400
  366. 12065  ON XX GOTO 12090
  367. 12070  GOSUB 62000: NORMAL : GOTO 12020
  368. 12090  NORMAL : PRINT HOM$: GOSUB 61000: GOSUB 62000: RETURN 
  369. 12099  REM <CTRL-0x0a>slot<CTRL-0x0a>
  370. 12100  PRINT HOM$: VTAB 7: HTAB 14: PRINT "Select a slot."
  371. 12110  FOR XS = 2 TO 7
  372. 12120  VTAB 11: HTAB 11 +XS *2: PRINT XS
  373. 12130  NEXT 
  374. 12140 DR = ( PEEK(48944) >127) +1
  375. 12142  POKE KS,0
  376. 12145 SL =  PEEK(48944): IF DR = 2  THEN SL = SL -128
  377. 12147 SL = SL/16
  378. 12150  VTAB 11: HTAB 11 +SL *2: PRINT SL;: VTAB 11: HTAB 11 +SL *2: PRINT SL;
  379. 12151  IF  PEEK(KB) <128  THEN 12150
  380. 12152  GET K$: ON K$ = ES$ GOTO 12290
  381. 12153  IF K$ =  CHR$(13)  THEN  VTAB 9: HTAB 9 +SL *2: PRINT SL;: GOTO 12200
  382. 12155  IF K$ = UP$  OR K$ = BS$  THEN SL = SL -1: IF SL <2  THEN SL = 7
  383. 12157  IF K$ = FS$  OR K$ = DN$  THEN SL = SL +1: IF SL >7  THEN SL = 2
  384. 12159  GOTO 12150
  385. 12199  REM <CTRL-0x0a>drive<CTRL-0x0a>
  386. 12200  PRINT HOM$: VTAB 7: HTAB 14: PRINT "Slot = "SL
  387. 12205  VTAB 9: HTAB 14: PRINT "Select a drive."
  388. 12210  VTAB 11: HTAB 19: PRINT "1";: HTAB 21: PRINT "2";
  389. 12250  VTAB 11: HTAB 17 +DR *2: PRINT DR;: VTAB 11: HTAB 17 +DR *2: PRINT DR;
  390. 12251  IF  PEEK(KB) <128  THEN 12250
  391. 12252  GET K$: ON K$ = ES$ GOTO 12290
  392. 12253  IF K$ =  CHR$(13)  THEN  VTAB 11: HTAB 17 +DR *2: PRINT DR;: GOTO 12270
  393. 12255  IF K$ = UP$  OR K$ = BS$  THEN DR = DR -1: IF DR <1  THEN DR = 2
  394. 12257  IF K$ = FS$  OR K$ = DN$  THEN DR = DR +1: IF DR >2  THEN DR = 1
  395. 12259  GOTO 12250
  396. 12270  NORMAL : POKE 34,5: POKE 35,24: PRINT HOM$: VTAB 15: HTAB 4: PRINT "Setting prefix to slot "SL", drive "DR"."
  397. 12275  FOR XY = 1 TO 1200: NEXT 
  398. 12280  ONERR  GOTO 12295
  399. 12282  PRINT  CHR$(4)"prefix,s"SL",d"DR
  400. 12284  ONERR  GOTO 63500
  401. 12290  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$: GOSUB 62000: RETURN 
  402. 12295  ONERR  GOTO 63500
  403. 12296  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$: INVERSE : PRINT HOM$: NORMAL : PRINT HOM$: GOSUB 62100
  404. 12297  VTAB 23: HTAB 2: PRINT OF$;: GET K$
  405. 12298  CALL 54915: PRINT TEX$: NORMAL : PRINT HOM$: GOTO 4
  406. 12299  REM <CTRL-0x0a>prefix<CTRL-0x0a>
  407. 12300  PRINT  CHR$(4)"prefix": INPUT PF$: NORMAL : POKE 34,5: POKE 35,24: PRINT HOM$: VTAB 7: HTAB 2: PRINT "Current prefix is: "PF$: VTAB 10: HTAB 12: PRINT "Enter the new prefix"
  408. 12305 V = 12:H = 12:W = 18:L = 64
  409. 12310  GOSUB 60000
  410. 12320  IF IN$ = ""  THEN 12390
  411. 12325 X9 =  LEN(IN$): FOR X8 = 1 TO X9: POKE 768 +X8, ASC( MID$ (IN$,X8)): NEXT : POKE 768,X9: CALL 2176
  412. 12330  IF  PEEK(768)  THEN  GOSUB 62100: VTAB 23: HTAB 2: PRINT OF$;: GET K$: GOTO 12390
  413. 12340  PRINT  CHR$(4)"prefix"IN$
  414. 12390  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$: GOSUB 62000
  415. 12392  RETURN 
  416. 12399  REM <CTRL-0x0a>exit<CTRL-0x0a>
  417. 12400 XX = 1: RETURN 
  418. 13999  REM <CTRL-0x0a>LOADFNT<CTRL-0x0a>
  419. 14000  POKE 34,5: NORMAL : PRINT HOM$
  420. 14010  PRINT : PRINT " Enter the name of the font to load."
  421. 14020 V = 12:H = 12:W = 16:L = 15
  422. 14030  GOSUB 60000
  423. 14040  IF IN$ = ""  THEN 14060
  424. 14045  VTAB 15: HTAB 15 - LEN(IN$)/2: PRINT "Loading "IN$
  425. 14046 X1 =  LEN(IN$): FOR X2 = 1 TO X1: POKE 768 +X2, ASC( MID$ (IN$,X2)): NEXT : POKE 768,X1: CALL 2176
  426. 14047  IF  PEEK(768) < >1  AND  PEEK(768) < >2  THEN  GOSUB 62100: VTAB 23: HTAB 2: PRINT OF$;: GET K$: GOTO 14060
  427. 14050  PRINT D$"bload"IN$",a24576"
  428. 14060  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$: GOSUB 61000: GOSUB 62000
  429. 14068  RETURN 
  430. 14999  REM <CTRL-0x0a>LOADBAN<CTRL-0x0a>
  431. 15000  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$
  432. 15010  PRINT : PRINT " Enter the name of the banner to load."
  433. 15020 V = 12:H = 12:W = 16:L = 15
  434. 15030  GOSUB 60000
  435. 15040  IF IN$ = ""  THEN 15060
  436. 15045  VTAB 15: HTAB 15 - LEN(IN$)/2: PRINT "Loading "IN$
  437. 15046 X1 =  LEN(IN$): FOR X2 = 1 TO X1: POKE 768 +X2, ASC( MID$ (IN$,X2)): NEXT : POKE 768,X1: CALL 2176
  438. 15047  IF  PEEK(768) < >2  THEN  GOSUB 62100: VTAB 23: HTAB 2: PRINT OF$;: GET K$: GOTO 14060
  439. 15050  PRINT D$"bload"IN$",a24576"
  440. 15052 BA$ = "":X2 =  PEEK(25344)
  441. 15054  FOR X1 = 1 TO X2
  442. 15056 BA$ = BA$ + CHR$( PEEK(25344 +X1))
  443. 15058  NEXT 
  444. 15060  NORMAL : POKE 34,5: POKE 35,24: PRINT HOM$: GOSUB 61000: GOSUB 62000
  445. 15068  RETURN 
  446. 15999  REM <CTRL-0x0a>input banner<CTRL-0x0a>
  447. 16000  POKE 34,5: NORMAL : PRINT HOM$
  448. 16010  PRINT : PRINT " Enter the text of your banner."
  449. 16020 V = 12:H = 3:W = 34:L = 126
  450. 16030  GOSUB 60000
  451. 16040  IF IN$ = ""  THEN BA$ = "": GOTO 16090
  452. 16050 BA$ = IN$
  453. 16090  PRINT HOM$: GOSUB 61000: GOSUB 62000
  454. 16098  RETURN 
  455. 16999  REM <CTRL-0x0a>PREVIEW BANNER<CTRL-0x0a>
  456. 17000 BU = 24576
  457. 17001  POKE 34,5: NORMAL : PRINT HOM$
  458. 17002  IF BA$ = ""  THEN  VTAB 12: HTAB 8: PRINT "There is no banner in memory.": PRINT : HTAB 15: PRINT "Press a key.": GET K$: PRINT HOM$: GOTO 17290
  459. 17003 PR = 0: IF M1 = 5  THEN PR = 1
  460. 17004  ON PR GOTO 17006: GOSUB 62100
  461. 17005  VTAB 23: HTAB 12: PRINT "Press [ESC] to cancel."
  462. 17006  POKE 34,5: POKE 35,21: NORMAL : PRINT HOM$: IF IV  THEN  INVERSE : PRINT HOM$
  463. 17007 S1$ = "  ":S2$ = "       ":S3$ = "*******": IF PR  THEN  IF IV  THEN S1$ = "**":S2$ = "*******":S3$ = "       "
  464. 17008  IF PR  THEN S1$ = S1$ + RIGHT$(S1$,1):S2$ = S2$ + RIGHT$(S2$,2):S3$ = S3$ + RIGHT$(S3$,2)
  465. 17015  IF PR  THEN  PRINT HOM$: GOSUB 62100: VTAB 12: HTAB 12: PRINT "Place printer online.": VTAB 23: HTAB 6: PRINT "Press a key. [ESC] to cancel.": GET K$: IF K$ = ES$  THEN PR = 0: GOTO 17290
  466. 17020  IF PR  THEN  POKE 48688,240: POKE 48689,253: TEXT : HOME : VTAB 2: PRINT "PRINTING BANNER. PRESS [ESC] TO STOP.": POKE 35,1: HOME : PRINT D$"PR#1"
  467. 17025 T$ = S1$ +S2$ +S2$ +S2$ +S2$ +S2$ +S2$ +S2$ +S2$ +S1$: PRINT T$: PRINT T$
  468. 17030  FOR X1 = 1 TO  LEN(BA$)
  469. 17040 K$ =  MID$ (BA$,X1)
  470. 17050 K =  ASC(K$)
  471. 17060 K = K -32
  472. 17070 K = K *8
  473. 17071 MX = 7
  474. 17072 Z1 = 0: FOR BYT = 0 TO 7:AD = BU +BYT +K: POKE 254, PEEK(AD): POKE 255,MX: CALL MP:Z1 = Z1 + PEEK(254): NEXT 
  475. 17073  IF MX = 0  THEN 17075
  476. 17074  IF   NOT Z1  THEN MX = MX -1: GOTO 17072
  477. 17075  IF MX = 0  AND Z1 = 0  THEN MX = 4
  478. 17076  IF Z1 < >0  THEN MX = MX +1
  479. 17080 BIT = 0
  480. 17090 BYT = 7
  481. 17100 IN$ = S1$
  482. 17110 AD = BU +BYT +K
  483. 17120 X =  PEEK(AD)
  484. 17130  POKE 254,X
  485. 17140  POKE 255,BIT
  486. 17150  CALL MP: REM SEE INIT CODE.
  487. 17160  IF  PEEK(KB) = 155  THEN 17280
  488. 17170  IF   NOT PR  THEN  IF  PEEK(254)  THEN IN$ = IN$ +"|||||||"
  489. 17180  IF PR  THEN  IF  PEEK(254)  THEN IN$ = IN$ +S3$
  490. 17190  IF   NOT  PEEK(254)  THEN IN$ = IN$ +S2$
  491. 17200 BYT = BYT -1
  492. 17210  IF BYT < > -1  THEN 17110
  493. 17212 IN$ = IN$ +S1$
  494. 17215  IF IV  THEN  INVERSE 
  495. 17220  IF   NOT PR  THEN  PRINT IN$
  496. 17225  NORMAL 
  497. 17230  IF PR  THEN  FOR ZZ = 1 TO PW: PRINT IN$:: NEXT 
  498. 17240 BIT = BIT +1
  499. 17250  IF BIT < = MX  THEN 17090
  500. 17260  NEXT X1
  501. 17270  IF   NOT PR  THEN  HTAB 12: PRINT "Press a key";: GET K$
  502. 17280  IF PR  THEN  PRINT D$"PR#0"
  503. 17290  NORMAL : POKE 34,5: POKE 35,24: PRINT HOM$: GOSUB 61000: GOSUB 62000
  504. 17298  RETURN 
  505. 17999  REM <CTRL-0x0a>saveban<CTRL-0x0a>
  506. 18000  IF BA$ = ""  THEN  POKE 34,5: NORMAL : PRINT HOM$: VTAB 12: HTAB 8: PRINT "There is no banner in memory.": PRINT : HTAB 15: PRINT "Press a key.": GET K$: GOTO 18290
  507. 18010  POKE 34,5: NORMAL : PRINT HOM$: HTAB 12: PRINT "Save Banner": PRINT : PRINT "Enter a filename for the banner."
  508. 18015 V = 12:H = 12:W = 16:L = 15
  509. 18020  GOSUB 60000
  510. 18030  IF IN$ = ""  THEN 18290
  511. 18040  VTAB 15: HTAB 15 - LEN(IN$)/2: PRINT "Saving "IN$
  512. 18042  POKE 25344, LEN(BA$)
  513. 18044  FOR X1 = 1 TO  LEN(BA$)
  514. 18046  POKE 25344 +X1, ASC( MID$ (BA$,X1))
  515. 18048  NEXT 
  516. 18050 X1 =  LEN(IN$): FOR X2 = 1 TO X1: POKE 768 +X2, ASC( MID$ (IN$,X2)): NEXT : POKE 768,X1: CALL 2176
  517. 18060  IF  PEEK(768) >2  AND  PEEK(768) < >70  THEN  GOSUB 62100: VTAB 23: HTAB 2: PRINT OF$;: GET K$: GOTO 18090
  518. 18080  PRINT D$"bsave"IN$",a24576,l1024
  519. 18090  NORMAL : POKE 34,5: POKE 35,24
  520. 18290  PRINT HOM$: GOSUB 61000: GOSUB 62000
  521. 18298  RETURN 
  522. 19999  REM <CTRL-0x0a>quit<CTRL-0x0a>
  523. 20000  POKE 34,5: POKE 35,24: NORMAL : PRINT HOM$
  524. 20010  VTAB 12: HTAB 12: PRINT "Quit for sure? (y/n)"
  525. 20020  GET K$: IF K$ < >"Y"  THEN  IF K$ < >"y"  THEN  IF K$ < >"N"  THEN  IF K$ < >"n"  THEN  GOSUB 63000: GOTO 20020
  526. 20030  IF K$ = "n"  OR K$ = "N"  THEN 20090
  527. 20040  PRINT  CHR$(4)"bye"
  528. 20090  NORMAL : PRINT HOM$: GOSUB 61000: GOSUB 62000: RETURN 
  529. 21000  POKE 34,5: POKE 35,21: NORMAL : PRINT HOM$:CX = 1
  530. 21005 M1$(1) = "Print Narrow":M1$(2) = "Print Standard":M1$(3) = "Print Wide":M1$(4) = "Print Normal":M1$(5) = "Print Inverse":M1$(6) = "Exit to Main Menu"
  531. 21010 X2 = 1
  532. 21020  POKE 34,5: POKE 35,21: PRINT HOM$: VTAB 7: HTAB 14: PRINT "Select Options"
  533. 21030  FOR X1 = 1 TO 6
  534. 21032  VTAB 8 +X1
  535. 21034  HTAB 14
  536. 21036  PRINT M1$(X1)
  537. 21038  NEXT 
  538. 21040  VTAB 8 +X2:PW$ = "standard": IF PW = 2  THEN PW$ = "narrow"
  539. 21041  IF PW = 6  THEN PW$ = "wide"
  540. 21042 IV$ = "normal": IF IV = 1  THEN IV$ = "inverse"
  541. 21043  ON   NOT CX GOTO 21044:CX = 0: VTAB 19: HTAB 2: PRINT "Present setting: "PW$" "IV$"."
  542. 21044  VTAB 8 +X2: HTAB 14: PRINT M1$(X2);: HTAB 14: PRINT M1$(X2);
  543. 21046  IF  PEEK(KB) <128  THEN 21044
  544. 21048  GET K$
  545. 21050 X3 = X2
  546. 21052  IF K$ = DN$  OR K$ = FS$  THEN X2 = X2 +1: IF X2 = 7  THEN X2 = 1
  547. 21054  IF K$ = UP$  OR K$ = BS$  THEN X2 = X2 -1: IF X2 = 0  THEN X2 = 6
  548. 21056  IF K$ = CR$  THEN 21060
  549. 21057  IF K$ = ES$  THEN X2 = 6: GOTO 21060
  550. 21058  IF X3 = X2  THEN  GOSUB 63000
  551. 21059  GOTO 21040
  552. 21060 XX = 0: ON X2 GOSUB 21100,21200,21300,21400,21500,21600
  553. 21065  ON XX GOTO 21090
  554. 21070  GOSUB 62000: NORMAL : GOTO 21020
  555. 21090  NORMAL : PRINT HOM$: GOSUB 61000: GOSUB 62000: RETURN 
  556. 21100 PW = 2:CX = 1: RETURN 
  557. 21200 PW = 4:CX = 1: RETURN 
  558. 21300 PW = 6:CX = 1: RETURN 
  559. 21400 IV = 0:CX = 1: RETURN 
  560. 21500 IV = 1:CX = 1: RETURN 
  561. 21600 XX = 1: RETURN 
  562. 59999  REM <CTRL-0x0a>input <CTRL-0x0a>
  563. 60000  CALL IP,H,V,W,L,IN$
  564. 60010  RETURN 
  565. 60999  REM <CTRL-0x0a>menu prt<CTRL-0x0a>
  566. 61000  RESTORE : FOR X1 = 1 TO 12: READ M$(X1): NEXT 
  567. 61010  DATA "Enter Banner","Preview Banner","Save Banner","Formatting Options","Print Banner","Catalog of Files","Change Drive","Catalog of Fonts","Catalog of Banners","Load Font","Load Banner","Quit"
  568. 61015  VTAB 7: HTAB 14: PRINT "MAIN MENU"
  569. 61020  FOR X1 = 1 TO 12
  570. 61030  VTAB 8 +X1
  571. 61040  HTAB 14
  572. 61050  PRINT M$(X1);
  573. 61060  NEXT 
  574. 61070  RETURN 
  575. 61999  REM <CTRL-0x0a>prompt<CTRL-0x0a>
  576. 62000  GOSUB 62100
  577. 62030  VTAB 23: HTAB 2: PRINT "Arrows move flasher. RETURN selects.";
  578. 62040  RETURN 
  579. 62100  POKE 34,21: POKE 35,24: FOR X1 = 1 TO 3
  580. 62110  PRINT HOM$: NORMAL : PRINT HOM$: INVERSE 
  581. 62120  NEXT : PRINT HOM$
  582. 62130  HPLOT 2,169 TO 277,169 TO 277,190 TO 2,190 TO 2,169: HPLOT 3,169 TO 3,190: HPLOT 276,169 TO 276,190
  583. 62190  RETURN 
  584. 62999  REM <CTRL-0x0a>bel<CTRL-0x0a>
  585. 63000  CALL  PEEK(121) + PEEK(122) *256 +28: REM  SPEED=   DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x01> DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x02><CTRL-0x18> HGR2 <CTRL-0x14> PLOT 0 TAB(  SPEED= <CTRL-0x02> DEL <UNKNOWN TOKEN> SPEED= $<CTRL-0x18> HGR2 <CTRL-0x08> PLOT 0 TAB(   NOT <UNKNOWN TOKEN> =  STR$`8H RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN>h RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN> -<CTRL-0x01><UNKNOWN TOKEN> RND =  VAL:`
  586. 63010  RETURN 
  587. 63500  POKE 216,0: NORMAL 
  588. 63510  POKE 48688,240: POKE 48689,253: TEXT : HOME 
  589. 63515  IF  PEEK(222) = 3  THEN  PRINT "NO DEVICE CONNECTED": PRINT : PRINT "PRESS A KEY": GET K$: CALL 54915: RESTORE : GOTO 3
  590. 63520  PRINT "MASSIVE FAILURE.  UNABLE TO CONTINUE."
  591. 63530  PRINT : PRINT "PERHAPS YOU TOOK THE DISK OUT OF THE": PRINT : PRINT "DRIVE, OR PRESSED CONTROL-C, OR ARE":: PRINT : PRINT "MISSING A FILE.  IN ANY CASE..."
  592. 63540  PRINT : PRINT "THE ERROR NUMBER IS " PEEK(222);
  593. 63550  PRINT : PRINT "IT HAPPENED IN LINE " PEEK(218) + PEEK(219) *256.
  594. 63560  PRINT : PRINT "NO ATTEMPT WILL BE MADE TO RECOVER."
  595. 63570  PRINT : PRINT "PRESS A KEY TO EXIT ALTOGETHER.": POKE KS,0: WAIT KB,128: GET K$
  596. 63580  PRINT : PRINT  CHR$(4)"BYE"