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