home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(07-1985).d64 / grafix.b (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  71 lines
  1. 1 N = 50688 : I = 50818
  2. 2 IF PEEK (N) <> 169 OR PEEK (N+1) <> 4 THEN GOSUB 100 : LOAD "GRAFIX.O", 8, 1
  3. 10 IF A = 1 THEN 2000
  4. 30 GOSUB 200
  5. 40 IF A$ <> "*" THEN GOSUB 300
  6. 50 A = 1
  7. 60 IF A$ = "*" THEN 2000
  8. 65 LOAD F$, 8, 1
  9. 70 END
  10. 100 FOR A = 49154 TO 49317
  11. 110 READ I : POKE A, I
  12. 120 NEXT
  13. 130 RETURN
  14. 200 POKE 53280, 6 : POKE 53281, 0 : PRINT CHR$ (14) "[159]"
  15. 205 A$ = "*"
  16. 210 INPUT "[147][215]HICH PICTURE ('*' IF PICTURE IS ALREADYPRESENT)*[157][157][157]"; A$
  17. 220 F$ = "???????" + A$ + "           " : F$ = LEFT$ (F$, 15)
  18. 230 FC = PEEK (53281) : CC = PEEK (646)
  19. 240 B = PEEK (53280) : INPUT "[194]ORDER COLOR"; B
  20. 250 POKE 53280, B
  21. 260 RETURN
  22. 300 PRINT "[200]IT A KEY WHEN YOU ARE READY TO LOAD"
  23. 305 PRINT A$ "."
  24. 310 GET R$ : IF R$ = "" THEN 310
  25. 320 PRINT "[204]OADING " A$ "..."
  26. 330 RETURN
  27. 1000 DATA173,17,208,41,239,141,17,208
  28. 1010 DATA162,127,160,64,32,156,192,162
  29. 1020 DATA4,160,0,32,161,192,162,131
  30. 1030 DATA160,39,32,114,192,162,131,160
  31. 1040 DATA40,32,156,192,162,216,160,0
  32. 1050 DATA32,161,192,162,135,160,15,32
  33. 1060 DATA114,192,173,16,135,141,33,208
  34. 1070 DATA173,17,208,9,34,141,17,208
  35. 1080 DATA173,22,208,41,223,9,16,141
  36. 1090 DATA22,208,173,24,208,9,8,141
  37. 1100 DATA24,208,162,96,160,0,32,156
  38. 1110 DATA192,162,32,160,0,32,161,192
  39. 1120 DATA162,127,160,63,32,114,192,173
  40. 1130 DATA17,208,9,16,141,17,208,96
  41. 1140 DATA142,1,192,140,0,192,160,0
  42. 1150 DATA177,251,145,253,165,252,205,1
  43. 1160 DATA192,208,8,165,251,205,0,192
  44. 1170 DATA208,1,96,230,251,208,2,230
  45. 1180 DATA252,230,253,208,227,230,254,76
  46. 1190 DATA122,192,134,252,132,251,96,134
  47. 1200 DATA254,132,253,96
  48. 2000 REM * * * GRAFIX DUMP
  49. 2020 I$ = "" : INPUT "[201]NVERSE IMAGEN[157][157][157]"; I$
  50. 2030 POKE I, 0 : IF I$ = "Y" THEN POKE I, 255
  51. 2040 D$ = "" : INPUT "[196]OUBLE WIDTHY[157][157][157]"; D$
  52. 2050 EC$ = "" : INPUT "[201]S EVERYTHING CORRECTY[157][157][157]"; EC$
  53. 2055 IF EC$ = "N" THEN 2000
  54. 2060 CC = PEEK (646) : BC = PEEK (53281)
  55. 2070 OPEN 4, 4
  56. 2080 PRINT# 4, CHR$ (27) "[212]17";
  57. 2090 PRINT# 4, CHR$ (14); : IF D$ = "N" THEN PRINT# 4, CHR$ (15) CHR$ (15);
  58. 2100 CLOSE 4
  59. 2110 SYS 49154
  60. 2120 SYS N
  61. 2140 POKE 53265, PEEK (53265) AND 223
  62. 2150 POKE 53272, (PEEK (53272) AND 240) OR 4
  63. 2160 POKE 646, CC : POKE 53281, BC
  64. 2170 PRINT CHR$ (14) "[147]* * * DONE!!! * * *"
  65. 2180 AO$ = "" : INPUT "[193]NOTHER OUTPUTN[157][157][157]"; AO$
  66. 2190 IF AO$ = "Y" THEN 2210
  67. 2200 END
  68. 2210 SP$ = "" : INPUT "[211]AME PICTUREY[157][157][157]"; SP$
  69. 2220 IF SP$ = "N" THEN RUN
  70. 2230 GOTO 2000
  71.