home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / gdump / GRAPHIC.GEMINI (.txt) < prev    next >
Commodore BASIC  |  1989-05-26  |  2KB  |  69 lines
  1. 1000 REM BASIC PROGRAM TO SUPPORT GDUMP
  2. 1010 REM     M.J.KERYAN  3-30-84
  3. 1020 :
  4. 1030 IF A=0 THEN A=1: LOAD" GDUMP+MOVE",8,1
  5. 1040 IF A=1 THEN A=2: GOTO 2000
  6. 1050 POKE 20491,PT: POKE 20492,SD
  7. 1060 POKE 20493,NT: POKE 20487,NP
  8. 1070 SYS GT
  9. 1080 IF TY=2 OR TY=4 THEN MD=PEEK(53270): MD=3-((MD AND 16)/16): POKE 20494,MD
  10. 1090 IF TY=3 OR TY=5 THEN POKE 20494,3
  11. 1100 IF TY=6 THEN POKE 20494,0
  12. 1110 GETK$:IF K$<>""THEN 1110
  13. 1120 GETK$:IF K$="" THEN 1120
  14. 1130 IF K$="P" THEN SYS 20480
  15. 1140 POKE 53265,(PEEK(53265)AND223)
  16. 1150 POKE 53270,(PEEK(53270)AND207)
  17. 1160 POKE 53272,21
  18. 1170 POKE 53280,6: POKE 53281,15: POKE 646,0
  19. 1180 PRINT"[147]": END
  20. 2000 POKE 53280,6: POKE 53281,15: POKE 646,0
  21. 2010 PRINT"[147]WHICH TYPE OF PICTURE?"
  22. 2020 PRINT
  23. 2030 PRINT"    1  SIMON'S BASIC"
  24. 2040 PRINT"    2  ULTRABASIC-64"
  25. 2050 PRINT"    3  DOODLE"
  26. 2060 PRINT"    4  KOALAPAINTER"
  27. 2070 PRINT"    5  SLIDESHOW"
  28. 2080 PRINT"    6  SLIDESHOW - INVERTED"
  29. 2090 INPUT"  ";TY
  30. 2100 IF TY<1 OR TY>6 THEN 2000
  31. 2110 :
  32. 2120 PT = 1:  REM PRINTER TYPE
  33. 2130 :        REM  NEC/PROWRITER    = 0
  34. 2140 :        REM  EPSON OR SIMILAR = 1
  35. 2150 :
  36. 2160 NP = 3:  IF PT=1 THEN NP = 2
  37. 2170 :        REM d  CODE
  38. 2180 :
  39. 2190 NT = 1:  REM INTERFACE TYPE
  40. 2200 :        REM  CONNECTION = 0
  41. 2210 :        REM  OTHERS     = 1
  42. 2220 :
  43. 2230 SD = 4:  REM SECONDARY ADDRESS
  44. 2240 :        REM FOR TRANSPARENT
  45. 2250 :
  46. 2260 GT = 21808 + (TY-1)*3
  47. 2270 IF GT>21820 THEN GT=21820
  48. 2280 IF TY=1 THEN 3000
  49. 2290 PRINT"NOW PUT IN DISK WITH THE PICTURE FILE."
  50. 2300 INPUT"NAME OF PICTURE";NM$
  51. 2310 PRINT"AFTER PICTURE LOADS, PRESS:"
  52. 2320 PRINT"   P TO PRINT IT"
  53. 2330 PRINT"   E TO EXIT"
  54. 2340 IF TY=4  THEN LOAD "?"+NM$+"*",8,1
  55. 2350 IF TY<>4 THEN LOAD NM$+"*",8,1
  56. 2900 :
  57. 3000 REM CREATE A SIMON'S BASIC PROGRAM
  58. 3010 Q$=CHR$(34)
  59. 3020 PRINT"[147]1 IF A=1THENA=2: LOAD"Q$" GDUMP+MOVE"Q$",8,1"
  60. 3030 PRINT"2 IF A=0 THEN A=1: GOTO 7
  61. 3040 [153]"3 POKE 20491,"PT" :POKE 20492,"SD
  62. 3050 [153]"4 POKE 20493,"NT" :POKE 20487,"NP" :SYS 21808"
  63. 3060 [153]"5 A=PEEK(53270): A=(A AND 16)/16"
  64. 3070 [153]"6 A=3-A: POKE 20494,A: SYS 20480: END"
  65. 3080 [153]"7 REM APPEND YOUR PROGRAM HERE"
  66. 3090 [153]"SAVE"Q$"SIMON.GDUMP"Q$",8"
  67. 3100 [151] 631,19: [129] A[178]632[164]639: [151] A,13: [130] A
  68. 3110 [151] 198,9: [162]
  69.