home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / RLESHOW (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  132 lines
  1. 1 BA=53265:H2=56579
  2. 10 POKE2,2:POKE53281,0:POKE53280,11:PRINT""CHR$(14)
  3. 15 IFA=0THENPOKE55,0:POKE56,92:CLR:DIMA$(30):A=1:AU=0:GOSUB4000
  4. 25 C=11
  5. 30 IFMS=0THENGOSUB2000
  6. 40 GOSUB700
  7. 197 IFAU=0THEN200
  8. 198 FORTT=1TO50:GETT$:IFT$<>""THENAU=0:GOSUB1000:GOTO200
  9. 199 NEXT:I=I+1:GOTO250
  10. 200 GETB$:IFB$=""THEN200
  11. 202 IFB$="^"THENAU=1:POKE198,0:GOTO198
  12. 204 IFB$="[134]"THENC=C-1:IFC<0THENC=0
  13. 205 IFB$="[134]"THENPOKE53280,C:IFC=0THENC=15
  14. 206 IFB$="[134]"THEN200
  15. 210 IFB$="[135]"THENMS=0:IFHR=1THENGOSUB1000
  16. 211 IFB$="[135]"THENMS=0:GOSUB2000:GOTO25
  17. 214 IFB$="[136]"THENI=I+1:GOTO250
  18. 216 IFB$="[133]"THENGOSUB1000
  19. 230 IFB$<"A"ORB$>"Z"THEN200
  20. 240 I=ASC(B$)-64
  21. 250 IFI>26THENI=1
  22. 260 F$=A$(I)
  23. 265 IFF$=""THEN197
  24. 270 POKE53265,59:POKE53272,120
  25. 280 POKE56576,PEEK(56576)AND254:HR=1
  26. 300 OPEN 8,8,8,F$+",M,R"
  27. 310 GET#8,A$:IF A$<>"H" AND A$<>"[200]" GOTO 310
  28. 320 :
  29. 330 POKE 53265,59:POKE 53272,120:POKE 56576,150
  30. 340 SYS49152:CLOSE 8
  31. 370 GOTO1
  32. 700 PRINT"[147]";
  33. 701 PRINTCHR$(14);"[154]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  34. 702 PRINT"[154] [176][179][158]  [210][204][197] [211]HOW   [146][154][171][192][179][129][212][210][211]-7 501-442-8777[154][171][174]"
  35. 703 PRINT"[154] [221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  36. 704 PRINT" [221] [193][146] "A$(1)TAB(21)"[194][146] "A$(2)TAB(38)"[154][221]"
  37. 705 PRINT" [221] [195][146] "A$(3)TAB(21)"[196][146] "A$(4)TAB(38)"[154][221]"
  38. 706 PRINT" [221] [197][146] "A$(5)TAB(21)"[198][146] "A$(6)TAB(38)"[154][221]"
  39. 707 PRINT" [221] [199][146] "A$(7)TAB(21)"[200][146] "A$(8)TAB(38)"[154][221]"
  40. 708 PRINT" [221] [201][146] "A$(9)TAB(21)"[202][146] "A$(10)TAB(38)"[154][221]"
  41. 709 PRINT" [221] [203][146] "A$(11)TAB(21)"[204][146] "A$(12)TAB(38)"[154][221]"
  42. 710 PRINT" [221] [205][146] "A$(13)TAB(21)"[206][146] "A$(14)TAB(38)"[154][221]"
  43. 711 PRINT" [221] [207][146] "A$(15)TAB(21)"[208][146] "A$(16)TAB(38)"[154][221]"
  44. 712 PRINT" [221] [209][146] "A$(17)TAB(21)"[210][146] "A$(18)TAB(38)"[154][221]"
  45. 713 PRINT" [221] [211][146] "A$(19)TAB(21)"[212][146] "A$(20)TAB(38)"[154][221]"
  46. 714 PRINT" [221] [213][146] "A$(21)TAB(21)"[214][146] "A$(22)TAB(38)"[154][221]"
  47. 715 PRINT" [221] [215][146] "A$(23)TAB(21)"[216][146] "A$(24)TAB(38)"[154][221]"
  48. 716 PRINT" [221] [217][146] "A$(25)TAB(21)"[218][146] "A$(26)TAB(38)"[154][221]"
  49. 803 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][179]
  50. 820 [153]" (null)FORASC1WAIT-(null)OGGLES TO & FROM MENUCONT-<(null)HANKS TO(null)"
  51. 821 [153]" (null)FORASC3WAIT-LENHANGES BORDER COLOR  CONT(null)(null)  (null)AYNE  (null)"
  52. 822 [153]" (null)FORASC5WAIT-(null)ELECT NEW DISK       CONT(null)(null) (null)CHMIDT (null)"
  53. 823 [153]" (null)FORASC7WAIT-(null)OAD NEXT SCREEN      CONT(null)(null) FOR THE (null)"
  54. 826 [153]" (null)FOR ^WAIT-(null)TART AUTO SEQ. LOAD  CONT(null)(null)  BASIC  (null)"
  55. 827 [153]" (null)FORATN(null)(null) (null)VAL(null)WAIT STOPS AUTO LOAD  CONT(null)(null) PROGRAM (null)"
  56. 828 [153]" (null)FORATNWAIT-FOR(null)WAIT-(null)ELECT LOAD & VIEW   CONT-<         (null)"
  57. 830 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP/TANTANTANTANTANTANTANTANTANEXP";
  58. 835 [153]"";
  59. 840 NC[178]I[170]1:[139]I[177]26[167]NC[178]1
  60. 845 [139]A$(NC)[178]""[167]NC[178]1
  61. 850 [153]"LIST"[199](NC[170]192);"WAIT";
  62. 899 [142]
  63. 1000 [139]HR[178]1[167]1020
  64. 1005 [151]53265,59:[151]53272,120
  65. 1010 [151]56576,[194](56576)[175]254:HR[178]1:[153][199](14):[142]
  66. 1020 [153]"LOAD";:[151]53265,27:[151]53272,21
  67. 1030 [151]56576,[194](56576)[176]1:HR[178]0:[141]700:[142]
  68. 2000 [129]I[178]0[164]27:A$(I)[178]"":[130]
  69. 2005 [153][199](14);"LOADSYSRIGHT$NSERT STR$ISK WITH (null)(null)VAL ASCRIGHT$(null)VAL(null) - LEFT$IT (null)ETURN"
  70. 2010 [161]ZZ$:[139]ZZ$[178]""[167]2010
  71. 2020 [153]" (null)EARCHING......."
  72. 3000 [160]8:[159]8,8,0,"$0:*":NQ[178]0:Q[178]1:MS[178]1
  73. 3004 [161]#8,A$,B$
  74. 3008 [161]#8,A$,B$
  75. 3012 [161]#8,A$,B$
  76. 3016 C[178]0:NQ[178]NQ[170]1:[139]A$[179][177]""[167]C[178][198](A$):A$[178]""
  77. 3020 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256:B$[178]""
  78. 3036 [161]#8,B$:[139]ST[179][177]0[167]3084
  79. 3040 D$[178]"":[139]B$[179][177][199](34)[167]B$[178]"":[137]3036
  80. 3044 [161]#8,B$:[139]B$[179][177][199](34)[167]D$[178]D$[170]B$:[137]3044
  81. 3048 [161]#8,B$:[139]B$[178][199](32)[167]B$[178]"":[137]3048
  82. 3056 [161]#8,B$:[139]B$[179][177]""[167]3056
  83. 3060 [139]ST[178]0[167]J[178]0
  84. 3075 [139][201](D$,4)[178]".RLE"[167]A$(Q)[178]D$:[153]"ASCOUND "D$:Q[178]Q[170]1:[139]Q[178]27[167]3084
  85. 3080 [139]J[178]0[167]J[178]1:A$[178]"":B$[178]"":C$[178]"":[137]3008
  86. 3084 [160]8
  87. 3110 [139]Q[178]1[167][153]"(null)O (null)(null)VALASCRIGHT$(null)VAL(null) ON THIS STR$ISK":[129]I[178]0[164]1000:[130]
  88. 3120 I[178]0:[142]
  89. 4000 [153]"LOAD(null)LEASE WAIT..."
  90. 4010 [135] A:[139] A[178]256 [167] 4040
  91. 4020 [151] 49152[170]L,A:L[178]L[170]1
  92. 4030 [137] 4010
  93. 4040 [142]
  94. 49152 [131]  76, 109, 192, 169, 0, 133, 252, 173
  95. 49160 [131]  39, 193, 72, 41, 248, 10, 38, 252
  96. 49168 [131]  10, 38, 252, 10, 38, 252, 72, 141
  97. 49176 [131]  41, 193, 165, 252, 141, 42, 193, 104
  98. 49184 [131]  10, 38, 252, 10, 38, 252, 109, 41
  99. 49192 [131]  193, 133, 251, 165, 252, 109, 42, 193
  100. 49200 [131]  133, 252, 173, 37, 193, 41, 248, 101
  101. 49208 [131]  251, 133, 251, 173, 38, 193, 101, 252
  102. 49216 [131]  133, 252, 104, 41, 7, 101, 251, 133
  103. 49224 [131]  251, 169, 96, 101, 252, 133, 252, 173
  104. 49232 [131]  37, 193, 41, 7, 170, 189, 101, 192
  105. 49240 [131]  141, 43, 193, 160, 0, 177, 251, 77
  106. 49248 [131]  43, 193, 145, 251, 96, 128, 64, 32
  107. 49256 [131]  16, 8, 4, 2, 1, 169, 0, 133
  108. 49264 [131]  251, 169, 92, 133, 252, 169, 0, 141
  109. 49272 [131]  37, 193, 141, 38, 193, 141, 39, 193
  110. 49280 [131]  141, 40, 193, 141, 45, 193, 160, 0
  111. 49288 [131]  169, 16, 145, 251, 230, 251, 208, 2
  112. 49296 [131]  230, 252, 165, 251, 201, 232, 208, 240
  113. 49304 [131]  165, 252, 201, 95, 208, 234, 169, 0
  114. 49312 [131]  133, 251, 169, 96, 133, 252, 169, 0
  115. 49320 [131]  145, 251, 230, 251, 208, 2, 230, 252
  116. 49328 [131]  165, 251, 201, 64, 208, 240, 165, 252
  117. 49336 [131]  201, 127, 208, 234, 162, 8, 32, 198
  118. 49344 [131]  255, 169, 1, 141, 44, 193, 169, 31
  119. 49352 [131]  141, 37, 193, 173, 44, 193, 73, 1
  120. 49360 [131]  141, 44, 193, 165, 144, 41, 100, 240
  121. 49368 [131]  9, 32, 204, 255, 169, 8, 32, 195
  122. 49376 [131]  255, 96, 32, 228, 255, 56, 233, 32
  123. 49384 [131]  141, 45, 193, 240, 222, 48, 234, 238
  124. 49392 [131]  37, 193, 208, 3, 238, 38, 193, 173
  125. 49400 [131]  38, 193, 240, 18, 173, 37, 193, 201
  126. 49408 [131]  32, 208, 11, 206, 38, 193, 169, 32
  127. 49416 [131]  141, 37, 193, 238, 39, 193, 173, 39
  128. 49424 [131]  193, 201, 193, 176, 196, 173, 44, 193
  129. 49432 [131]  240, 3, 32, 3, 192, 206, 45, 193
  130. 49440 [131]  208, 205, 76, 203, 192, 0, 0, 0
  131. 49448 [131]  0, 0, 0, 0, 0, 0, 0, 256
  132.