home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / KOALA-SHOW (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  133 lines
  1. 1 REM CREATED BY MIKE HOOPER FOR THE USERS OF GENIE AND THE GRAFIX CONNEXTION
  2. 2 REM 9/20/86
  3. 3 REM THANKS TO WAYNE SCHMIDT FOR THE BASIC IDEA IN HIS ORIGINAL DOODLE SHOW
  4. 4 REM ADDRESS MAIL TO: GRAFIX.M ON GENIE
  5. 5 BA=53265:H2=56579
  6. 10 POKE2,2:POKE53281,0:POKE53280,11:PRINT""CHR$(14)
  7. 11 IFA=0THENGOSUB5000
  8. 12 IFPS=2THEN15
  9. 15 IFA=1THENPOKE55,0:POKE56,92:CLR:DIMA$(18):A=2:AU=0:PS=2
  10. 20 IF A=3THENSYS49154:GOTO197
  11. 25 C=11
  12. 30 IFMS=0THENGOSUB2000
  13. 40 GOSUB700
  14. 197 A=2:IFAU=0THEN200
  15. 198 FORTT=1TO50:GETT$:IFT$<>""THENAU=0:GOSUB1000:GOTO200
  16. 199 NEXT:I=I+1:GOTO250
  17. 200 GETB$:IFB$=""THEN200
  18. 202 IFB$="^"THENAU=1:POKE198,0:GOTO198
  19. 204 IFB$="[134]"THENC=C-1:IFC<0THENC=0
  20. 205 IFB$="[134]"THENPOKE53280,C:IFC=0THENC=15
  21. 206 IFB$="[135]"THENMS=0:GOSUB2000:GOTO25
  22. 208 IFB$="[140]"THENSYS52224:GOTO200
  23. 210 IFB$="1"THENPOKE2,1:GOSUB701
  24. 212 IFB$="2"THENPOKE2,2:GOSUB701
  25. 214 IFB$="[136]"THENI=I+1:GOTO250
  26. 216 IFB$="[133]"THENGOSUB1000
  27. 230 IFB$<"A"ORB$>"Q"THEN200
  28. 240 I=ASC(B$)-64
  29. 250 IFI>16THENI=1
  30. 260 F$=A$(I)
  31. 265 IFF$=""THEN197
  32. 270 REM
  33. 280 HR=1
  34. 290 A=3:LOAD F$,8,1
  35. 700 PRINT"[147]";
  36. 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]"
  37. 702 PRINT"[154] [176][179][158] [203]OALA [211]HOW  [146][154][171][192][179][129][199]RAFIX [195]ONNE[216]TION![154][171][174]"
  38. 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]"
  39. 704 PRINT" [221] [193][146] "A$(1)TAB(21)"[194][146] "A$(2)TAB(38)"[154][221]"
  40. 705 PRINT" [221] [195][146] "A$(3)TAB(21)"[196][146] "A$(4)TAB(38)"[154][221]"
  41. 706 PRINT" [221] [197][146] "A$(5)TAB(21)"[198][146] "A$(6)TAB(38)"[154][221]"
  42. 707 PRINT" [221] [199][146] "A$(7)TAB(21)"[200][146] "A$(8)TAB(38)"[154][221]"
  43. 708 PRINT" [221] [201][146] "A$(9)TAB(21)"[202][146] "A$(10)TAB(38)"[154][221]"
  44. 709 PRINT" [221] [203][146] "A$(11)TAB(21)"[204][146] "A$(12)TAB(38)"[154][221]"
  45. 710 PRINT" [221] [205][146] "A$(13)TAB(21)"[206][146] "A$(14)TAB(38)"[154][221]"
  46. 711 PRINT" [221] [207][146] "A$(15)TAB(21)"[208][146] "A$(16)TAB(38)"[154][221]"
  47. 712 PRINT" [173][178][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][192][192][192][192][192][192][192][192][192][178][189]"
  48. 713 PRINT"  [221]    [195]ALL THE [199]RAFIX [195]ONNE[216]TION    [221] "
  49. 714 PRINT"  [221][155]     304-768-9360    24 HOURS    [154] [221]
  50. 803 [153]" OR>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ORTANTANTANTANTANTANTANTAN>^
  51. 820 PRINT" [221][129][198]1[146]-[212]OGGLES [203]OALA & MENU  [154][171][179][212]HANKS TO[221]"
  52. 821 PRINT" [221][129][198]3[146]-[195]HANGES BORDER COLOR  [154][221][221]  [215]AYNE  [221]"
  53. 822 PRINT" [221][129][198]5[146]-[211]ELECT NEW DISK       [154][221][221] [211]CHMIDT [221]"
  54. 823 PRINT" [221][129][198]7[146]-[204]OAD NEXT SCREEN      [154][171][179] FOR THE [221]"
  55. 824 PRINT" [173][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][189][221]  BASIC  [221]"
  56. 825 PRINT" [176][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][221] PROGRAM [221]"
  57. 826 PRINT" [221][129]^[146]-[211]TART AUTO SEQ. LOAD   [154][221][173][192][192][192][192][192][192][192][192][192][189]"
  58. 827 PRINT" [221][129][193][206][217] [203][197][217][146] STOPS AUTO LOAD  [154][221][176][192][192][192][192][192][192][192][192][192][174]"
  59. 828 PRINT" [221][129][193][146]-[129][209][146]-[211]ELECT LOAD & VIEW   [154][171][179][214]ERS. 1.0[221]"
  60. 830 PRINT" [173][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][189][173][192][192][192][192][192][192][192][192][192][189]";
  61. 835 PRINT"";
  62. 840 NC=I+1:IFI>16THENNC=1
  63. 845 IFA$(NC)=""THENNC=1
  64. 850 PRINT"[155]"CHR$(NC+192);"[146]";
  65. 899 RETURN
  66. 1000 IFHR=1THEN1020
  67. 1004 SYS49154:HR=1:PRINTCHR$(14);:RETURN
  68. 1020 PRINT"[147]";
  69. 1026 POKE 53265,PEEK(53265)AND223
  70. 1027 POKE53272,(PEEK(53272)AND240)OR4
  71. 1028 POKE53270,PEEK(53270)AND239
  72. 1029 POKE 53281,FC:POKE646,CC
  73. 1030 HR=0:GOSUB700:RETURN
  74. 2000 FORI=0TO18:A$(I)="":NEXT
  75. 2005 PRINTCHR$(14);"[147][158] [201]NSERT [196]ISK WITH [203]OALAS - [200]IT [210]ETURN"
  76. 2010 GETZZ$:IFZZ$=""THEN2010
  77. 2020 PRINT"[147] [211]EARCHING FOR POSSIBLE [203]OALA FILES"
  78. 3000 CLOSE8:OPEN8,8,0,"$0:*":NQ=0:Q=1:MS=1
  79. 3004 GET#8,A$,B$
  80. 3008 GET#8,A$,B$
  81. 3012 GET#8,A$,B$
  82. 3016 C=0:NQ=NQ+1:IFA$<>""THENC=ASC(A$):A$=""
  83. 3020 IFB$<>""THENC=C+ASC(B$)*256:B$=""
  84. 3036 GET#8,B$:IFST<>0THEN3084
  85. 3040 D$="":IFB$<>CHR$(34)THENB$="":GOTO3036
  86. 3044 GET#8,B$:IFB$<>CHR$(34)THEND$=D$+B$:GOTO3044
  87. 3048 GET#8,B$:IFB$=CHR$(32)THENB$="":GOTO3048
  88. 3056 GET#8,B$:IFB$<>""THEN3056
  89. 3060 IFST=0THENJ=0
  90. 3065 IF C<>40 THEN3080
  91. 3070 IFLEFT$(D$,1)=CHR$(129)THEND$="?"+MID$(D$,2):GOTO3075
  92. 3075 A$(Q)=D$:PRINT"[198]OUND ";D$
  93. 3079 Q=Q+1
  94. 3080 IFJ=0THENJ=1:A$="":B$="":C$="":GOTO3008
  95. 3084 CLOSE8
  96. 3110 IFQ=1THENPRINT"[206]O [203]OALAS ON THIS [196]ISK":FORI=0TO1000:NEXT:I=0:RETURN
  97. 3120 I=0
  98. 3200 PRINT"[147][154][214]ERIFYING FILES..."
  99. 3210 FORI=1TOQ:OPEN8,8,8,A$(I)
  100. 3220 GET#8,A$,B$:CLOSE8
  101. 3230 PRINTA$(I);" ";:WQ$="[155]IS A [203]OALA[158]"
  102. 3235 IFASC(A$+CHR$(0))=0ANDASC(B$+CHR$(0))=96THEN3300
  103. 3240 A$(I)="":WQ$="[155]IS [206]OT A [203]OALA[158]"
  104. 3300 PRINTWQ$:NEXT
  105. 3310 RETURN
  106. 5000 FORA=49154TO49326
  107. 5020 READI:T=T+1:POKEA,I
  108. 5030 NEXT
  109. 5040 A=1:RETURN
  110. 5190 DATA 173,17,208,41,239,141,17,208
  111. 5200 DATA 173,17,208,9,32,141,17,208
  112. 5210 DATA 173,22,208,41,223,9,16,141
  113. 5220 DATA 22,208,173,24,208,41,240,9
  114. 5230 DATA 8,141,24,208,76,49,192,173
  115. 5240 DATA 17,208,41,239,141,17,208,162
  116. 5250 DATA 127,160,64,134,252,132,251,162
  117. 5260 DATA 4,160,0,134,254,132,253,162
  118. 5270 DATA 131,160,39,32,133,192,162,131
  119. 5280 DATA 160,40,134,252,132,251,162,216
  120. 5290 DATA160,0,134,254,132,253,162,135
  121. 5300 DATA160,15,32,133,192,173,16,135
  122. 5310 DATA141,33,208,162,96,160,0,134
  123. 5320 DATA252,132,251,162,32,160,0,134
  124. 5330 DATA254,132,253,162,127,160,63,32
  125. 5340 DATA 133,192,173,17,208,9,16,141
  126. 5350 DATA 17,208,96,142,1,192,140,0
  127. 5360 DATA 192,160,0,177,251,145,253,165
  128. 5370 DATA 252,205,1,192,208,8,165,251
  129. 5380 DATA 205,0,192,208,1,96,230,251
  130. 5390 DATA 208,2,230,252,230,253,208,227
  131. 5400 DATA 230,254,76,141,192
  132. 10000 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:PRINTA$;B$;C$;D$
  133.