1000 REM BASIC PROGRAM TO SUPPORT GDUMP
1010 REM     M.J.KERYAN  3-30-84
1020 :
1030 IF A=0 THEN A=1: LOAD" GDUMP+MOVE",8,1
1040 IF A=1 THEN A=2: GOTO 2000
1050 POKE 20491,PT: POKE 20492,SD
1060 POKE 20493,NT: POKE 20487,NP
1070 SYS GT
1080 IF TY=2 OR TY=4 THEN MD=PEEK(53270): MD=3-((MD AND 16)/16): POKE 20494,MD
1090 IF TY=3 OR TY=5 THEN POKE 20494,3
1100 IF TY=6 THEN POKE 20494,0
1110 GETK$:IF K$<>""THEN 1110
1120 GETK$:IF K$="" THEN 1120
1130 IF K$="P" THEN SYS 20480
1140 POKE 53265,(PEEK(53265)AND223)
1150 POKE 53270,(PEEK(53270)AND207)
1160 POKE 53272,21
1170 POKE 53280,6: POKE 53281,15: POKE 646,0
1180 PRINT"[147]": END
2000 POKE 53280,6: POKE 53281,15: POKE 646,0
2010 PRINT"[147]WHICH TYPE OF PICTURE?"
2020 PRINT
2030 PRINT"    1  SIMON'S BASIC"
2040 PRINT"    2  ULTRABASIC-64"
2050 PRINT"    3  DOODLE"
2060 PRINT"    4  KOALAPAINTER"
2070 PRINT"    5  SLIDESHOW"
2080 PRINT"    6  SLIDESHOW - INVERTED"
2090 INPUT"  ";TY
2100 IF TY<1 OR TY>6 THEN 2000
2110 :
2120 PT = 1:  REM PRINTER TYPE
2130 :        REM  NEC/PROWRITER    = 0
2140 :        REM  EPSON OR SIMILAR = 1
2150 :
2160 NP = 3:  IF PT=1 THEN NP = 2
2170 :        REM d  CODE
2180 :
2190 NT = 1:  REM INTERFACE TYPE
2200 :        REM  CONNECTION = 0
2210 :        REM  OTHERS     = 1
2220 :
2230 SD = 4:  REM SECONDARY ADDRESS
2240 :        REM FOR TRANSPARENT
2250 :
2260 GT = 21808 + (TY-1)*3
2270 IF GT>21820 THEN GT=21820
2280 IF TY=1 THEN 3000
2290 PRINT"NOW PUT IN DISK WITH THE PICTURE FILE."
2300 INPUT"NAME OF PICTURE";NM$
2310 PRINT"AFTER PICTURE LOADS, PRESS:"
2320 PRINT"   P TO PRINT IT"
2330 PRINT"   E TO EXIT"
2340 IF TY=4  THEN LOAD "?"+NM$+"*",8,1
2350 IF TY<>4 THEN LOAD NM$+"*",8,1
2900 :
3000 REM CREATE A SIMON'S BASIC PROGRAM
3010 Q$=CHR$(34)
3020 PRINT"[147]1 IF A=1THENA=2: LOAD"Q$" GDUMP+MOVE"Q$",8,1"
3030 PRINT"2 IF A=0 THEN A=1: GOTO 7
3040 [153]"3 POKE 20491,"PT" :POKE 20492,"SD
3050 [153]"4 POKE 20493,"NT" :POKE 20487,"NP" :SYS 21808"
3060 [153]"5 A=PEEK(53270): A=(A AND 16)/16"
3070 [153]"6 A=3-A: POKE 20494,A: SYS 20480: END"
3080 [153]"7 REM APPEND YOUR PROGRAM HERE"
3090 [153]"SAVE"Q$"SIMON.GDUMP"Q$",8"
3100 [151] 631,19: [129] A[178]632[164]639: [151] A,13: [130] A
3110 [151] 198,9: [162]