home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / BLINDS-DOODLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.3 KB  |  151 lines
  1. 0 IFPEEK(49155)<>187THENGOSUB49142:GOSUB51190:REM   FADE.DATA & TEXT.DATA
  2. 1 IFA=0THENPOKE52,92:POKE56,92:CLR:A=1:Z=0:DIMA$(17):REM AUTO FLAG OFF
  3. 2 IFPEEK(203)<>49ANDZ=1THENFL=FL+1:GOTO45:REM AUTO-MODE ON/NOT(*=49)AT $CB(203)
  4. 3 IFPEEK(203)=49THENZ=0:REM                   AUTO-MODE OFF RESET Z
  5. 4 IFA=2THEN50:REM                             FILE HAS LOADED/DISSOLVE & WAIT
  6. 5 POKE53280,0:POKE53281,0:SYS51200:REM                            TEXT.O
  7. 6 PRINT"[155][147]PUT YOUR DISK IN THE DRIVE. PRESS A KEY"
  8. 7 POKE198,0:WAIT198,1:GETA$:PRINT"[147]":FL=0:GOTO100:REM INITIALZE ARRAY/READ DIR.
  9. 10 POKE198,0:WAIT198,1:GETA$:REM              WAIT FOR KEY BEFORE MENU DISPLAY
  10. 11 REM IFPEEK(203)=63THENPOKE648,4:REM 600:REM STOP KEY          RESTORE SCREEN
  11. 12 IFA$="^"THENZ=1:FL=FL+(ABS(FL>0)):GOTO45:REM    AUTO FLAG ON/NEXT FILE
  12. 13 IFA$="*"THEN10
  13. 14 IFA$="[136]"THENFL=FL+1:GOTO45:REM F7          NEXT FILE
  14. 15 IFA$="D"THENFL=0:GOTO6:REM                      GET ANOTHER DIRECTORY
  15. 16 IFA$="X"THEN600
  16. 20 PRINT"[146]"
  17. 21 PRINTTAB(3)"[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][174]"
  18. 22 PRINTTAB(3)"[221] GRAPHICS BY WAYNE SCHMIDT [221]"
  19. 23 PRINTTAB(3)"[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][192][192][192][192][192][192][192][179]"
  20. 24 FOR I=0TO8:PRINTTAB(3)"[221]"A$(I)""A$(I+9)"[221]":NEXT
  21. 25 PRINTTAB(3)"[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][189]"
  22. 26 PRINT"F1 MENU TOGGLE^ AUTO MODE     "
  23. 27 PRINT"F7 NEXT SCREEN* AUTO OFF(HOLD)"
  24. 28 PRINT" X EXIT PRG   D DISK CHANGE   "
  25. 29 X=0:Y=0:P$=""
  26. 30 PRINT"":PRINTLEFT$(P$,X+1);TAB(Y*16+5);""A$(X+(Y*9)):REM POSITION MASK
  27. 31 GETA$:IFA$=""THEN31
  28. 32 PRINT"":PRINT"[146]"LEFT$(P$,X+1);TAB(Y*16+5);A$(X+(Y*9))
  29. 33 IFA$="X"THENPOKE49155,0:SYS64738
  30. 34 IFA$="[136]"THENFL=FL+1:GOTO45:REM F7               NEXT FILE
  31. 35 IFA$="^"THENZ=1:FL=FL+(ABS(FL>0)):GOTO45:REM    AUTO FLAG ON/NEXT FILE
  32. 36 IFA$="[145]"THENX=X-1:IFX<0THENX=8:REM              CURSOR UP MENU SELECT
  33. 37 IFA$=""THENX=X+1:IFX>8THENX=0:REM              CURSOR DOWN
  34. 38 IFA$="[157]"THENY=Y-1:IFY<0THENY=1:REM              CURSOR LEFT COLUMN/RIGHT
  35. 39 IFA$=""THENY=Y+1:IFY>1THENY=0:REM              CURSOR RIGHT COLUMN/LEFT
  36. 40 IFA$=CHR$(13)THEN44:REM C/R ACCEPT
  37. 41 IFA$="D"THENFL=0:GOTO6:REM                      GET ANOTHER DIRECTORY
  38. 42 IFA$="[133]"THEN50:REM F1                           TOGGLE DISSOLVE & WAIT/MENU
  39. 43 GOTO30:REM    LOOP FOR INPUT            :::::::::::::::::::::::::::::::::::
  40. 44 FL=(X+(Y*9)):REM  WHERE WAS MASK
  41. 45 IFFL>16THENFL=0:REM MAX 17 DD FILES
  42. 46 F$=A$(FL):IFF$="--------------"THENZ=0:FL=0:GOTO50:REM   LAST FILE--WAIT
  43. 47 IFA=1THENPRINT"[147]"
  44. 48 IFA>1THENSYS49152
  45. 49 A=FRE(0)*0+2:LOAD"DD"+F$,8,1
  46. 50 SYS49152:GOTO10:REM  DISSOLVE & WAIT
  47. 90 REM -::::::::::::::::::::::::::::::-
  48. 100 FORI=0TO17:A$(I)="--------------":NEXT:REM   INITIALIZE ARRAY
  49. 101 REM -:::::::::::::::::::::::::::::-
  50. 110 OPEN2,8,0,"$0:DD*":GET#2,A$,A$,A$,A$:REM     READ IN SELECTIVE 'DD' DIR.
  51. 120 GOSUB200:IN=0:REM CAST OFF DISKNAME
  52. 121 REM -:::::::::::::::::::::::::::::-
  53. 130 GOSUB200:IFN<30THENCLOSE2:GOTO20:REM         BUILD NAMES W/O 'DD'
  54. 140 A$(IN)=A$:IN=IN+1:IFIN<17THEN130:REM         ADD TO ARRAY:MAX 17 PICFILES
  55. 150 CLOSE2:GOTO20
  56. 151 REM -:::::::::::::::::::::::::::::-
  57. 200 GET#2,A$,A$,A$,B$:L=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)):L$=STR$(L)
  58. 201 REM  BLOCKSIZE
  59. 210 GET#2,A$:IFA$<>""THENL$=L$+A$:GOTO210:REM    BUILD NAME UNTIL NULL
  60. 220 N=LEN(L$):I=N:IFN<30THENRETURN:REM           CHAR.IN NAME:<30= BLOCKS FREE
  61. 230 IFMID$(L$,I,1)<>CHR$(34)THENI=I-1:GOTO230:REM   LOOK FOR END QUOTE
  62. 240 A$=LEFT$(MID$(L$,9,I-9)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",14):RETURN
  63. 241 REM  SELECT STRIPPED NAME & PAD
  64. 500 REM ===============================
  65. 600 SYS64738:END
  66. 601 POKE53265,27:POKE53272,21:REM               RESTORE NORMAL BASIC SCREEN
  67. 602 POKE56576,PEEK(56576)OR1
  68. 603 POKE648,4:STOP
  69. 49142 POKE53281,0:POKE53280,11:PRINT"[147][158]     MENU SELECT/DISSOLVE SLIDESHOW[146][165][153]"
  70. 49143 PRINT,"   BY [154]TONY MANSO[153]":PRINT"  WITH EXTENSIONS BY WAYNE SCHMIDT,NYC"
  71. 49144 PRINT,"[129]    ONE MOMENT...":PRINT,"  POKING M/L DATA..."
  72. 49145  FORFADE= 49152 TO 49346 :READML:POKEFADE,ML:NEXT:RETURN
  73. 49152 DATA 169, 0, 141, 187, 192, 169, 7, 205, 187, 192
  74. 49162 DATA 176, 3, 76, 152, 192, 172, 187, 192, 169, 0
  75. 49172 DATA 133, 251, 169, 96, 133, 252, 169, 0, 133, 253
  76. 49182 DATA 169, 224, 133, 254, 169, 232, 141, 189, 192, 169
  77. 49192 DATA 3, 141, 190, 192, 173, 189, 192, 13, 190, 192
  78. 49202 DATA 201, 0, 208, 3, 76, 112, 192, 177, 251, 145
  79. 49212 DATA 253, 165, 251, 24, 105, 8, 133, 251, 165, 252
  80. 49222 DATA 105, 0, 133, 252, 165, 253, 24, 105, 8, 133
  81. 49232 DATA 253, 165, 254, 105, 0, 133, 254, 173, 189, 192
  82. 49242 DATA 56, 233, 1, 141, 189, 192, 173, 189, 192, 201
  83. 49252 DATA 255, 240, 3, 76, 109, 192, 206, 190, 192, 76
  84. 49262 DATA 44, 192, 169, 1, 141, 188, 192, 169, 2, 205
  85. 49272 DATA 188, 192, 176, 3, 76, 146, 192, 173, 18, 208
  86. 49282 DATA 201, 0, 208, 3, 76, 140, 192, 76, 127, 192
  87. 49292 DATA 238, 188, 192, 76, 117, 192, 238, 187, 192, 76
  88. 49302 DATA 5, 192, 169, 0, 133, 251, 169, 92, 133, 252
  89. 49312 DATA 169, 0, 133, 253, 169, 196, 133, 254, 162, 4
  90. 49322 DATA 160, 0, 177, 251, 145, 253, 200, 208, 249, 230
  91. 49332 DATA 254, 230, 252, 202, 208, 242, 96, 255, 255, 255
  92. 49342 DATA 255, 0, 0, 0, 28
  93. 51190  FORTXT= 51200 TO 51759 :READML:POKETXT,ML:NEXT:RETURN
  94. 51200 DATA 169, 109, 141, 38, 3, 169, 200, 141, 39, 3
  95. 51210 DATA 76, 87, 200, 169, 255, 133, 254, 169, 0, 133
  96. 51220 DATA 253, 168, 145, 253, 160, 63, 162, 32, 145, 253
  97. 51230 DATA 136, 208, 251, 198, 254, 202, 208, 246, 96, 173
  98. 51240 DATA 134, 2, 10, 10, 10, 10, 141, 46, 202, 173
  99. 51250 DATA 33, 208, 41, 15, 13, 46, 202, 141, 46, 202
  100. 51260 DATA 96, 32, 39, 200, 162, 0, 157, 0, 196, 157
  101. 51270 DATA 0, 197, 157, 0, 198, 232, 208, 244, 162, 232
  102. 51280 DATA 157, 255, 198, 202, 208, 250, 96, 169, 148, 141
  103. 51290 DATA 0, 221, 169, 24, 141, 24, 208, 169, 59, 141
  104. 51300 DATA 17, 208, 32, 61, 200, 32, 13, 200, 96, 72
  105. 51310 DATA 165, 154, 201, 3, 240, 4, 104, 76, 202, 241
  106. 51320 DATA 142, 38, 202, 140, 39, 202, 104, 72, 41, 127
  107. 51330 DATA 201, 13, 208, 13, 169, 0, 141, 44, 202, 141
  108. 51340 DATA 45, 202, 104, 72, 76, 153, 200, 104, 72, 201
  109. 51350 DATA 17, 208, 37, 24, 169, 64, 109, 40, 202, 141
  110. 51360 DATA 40, 202, 169, 1, 109, 41, 202, 141, 41, 202
  111. 51370 DATA 24, 169, 40, 109, 42, 202, 141, 42, 202, 169
  112. 51380 DATA 0, 109, 43, 202, 141, 43, 202, 76, 29, 202
  113. 51390 DATA 201, 145, 208, 37, 56, 173, 40, 202, 233, 64
  114. 51400 DATA 141, 40, 202, 173, 41, 202, 233, 1, 141, 41
  115. 51410 DATA 202, 56, 173, 42, 202, 233, 40, 141, 42, 202
  116. 51420 DATA 173, 43, 202, 233, 0, 141, 43, 202, 76, 29
  117. 51430 DATA 202, 201, 157, 208, 43, 173, 44, 202, 208, 18
  118. 51440 DATA 173, 45, 202, 208, 13, 169, 56, 141, 44, 202
  119. 51450 DATA 169, 1, 141, 45, 202, 76, 194, 200, 56, 173
  120. 51460 DATA 44, 202, 233, 8, 141, 44, 202, 173, 45, 202
  121. 51470 DATA 233, 0, 141, 45, 202, 76, 29, 202, 201, 29
  122. 51480 DATA 208, 45, 173, 44, 202, 201, 56, 208, 18, 173
  123. 51490 DATA 45, 202, 201, 1, 208, 11, 169, 0, 141, 44
  124. 51500 DATA 202, 141, 45, 202, 76, 153, 200, 24, 169, 8
  125. 51510 DATA 109, 44, 202, 141, 44, 202, 169, 0, 109, 45
  126. 51520 DATA 202, 141, 45, 202, 76, 29, 202, 201, 19, 208
  127. 51530 DATA 27, 169, 0, 141, 44, 202, 141, 45, 202, 141
  128. 51540 DATA 40, 202, 141, 42, 202, 169, 224, 141, 41, 202
  129. 51550 DATA 169, 196, 141, 43, 202, 76, 29, 202, 201, 147
  130. 51560 DATA 208, 9, 32, 61, 200, 32, 13, 200, 76, 75
  131. 51570 DATA 201, 41, 127, 170, 104, 72, 224, 32, 176, 10
  132. 51580 DATA 104, 174, 38, 202, 172, 39, 202, 76, 202, 241
  133. 51590 DATA 201, 64, 144, 50, 201, 96, 176, 6, 56, 233
  134. 51600 DATA 64, 76, 188, 201, 201, 128, 176, 6, 56, 233
  135. 51610 DATA 32, 76, 188, 201, 201, 160, 176, 5, 105, 64
  136. 51620 DATA 76, 188, 201, 201, 192, 176, 6, 56, 233, 64
  137. 51630 DATA 76, 188, 201, 201, 255, 240, 5, 41, 127, 76
  138. 51640 DATA 188, 201, 169, 94, 166, 199, 240, 2, 9, 128
  139. 51650 DATA 160, 0, 132, 252, 10, 38, 252, 10, 38, 252
  140. 51660 DATA 10, 38, 252, 133, 251, 24, 169, 208, 101, 252
  141. 51670 DATA 133, 252, 24, 173, 40, 202, 109, 44, 202, 133
  142. 51680 DATA 253, 173, 41, 202, 109, 45, 202, 133, 254, 120
  143. 51690 DATA 165, 1, 41, 251, 133, 1, 160, 7, 177, 251
  144. 51700 DATA 145, 253, 136, 16, 249, 165, 1, 9, 4, 133
  145. 51710 DATA 1, 88, 173, 42, 202, 133, 251, 173, 43, 202
  146. 51720 DATA 133, 252, 173, 45, 202, 74, 173, 44, 202, 106
  147. 51730 DATA 74, 74, 168, 32, 39, 200, 145, 251, 76, 26
  148. 51740 DATA 201, 174, 38, 202, 172, 39, 202, 104, 24, 96
  149. 51750 DATA 0, 0, 0, 224, 0, 196, 0, 0, 0, 227
  150. 63999 OPEN1,8,15,"S0:SLIDESHOW":CLOSE1:SAVE"SLIDESHOW",8
  151.