WORDFLEX-GEX

00000000: 01 08 24 08 0A 00 8F 20  57 4F 52 44 20 50 52 4F  |..$.... WORD PRO|
00000010: 43 45 53 53 4F 52 20 47  52 41 50 48 49 43 53 20  |CESSOR GRAPHICS |
00000020: 54 45 53 54 00 3B 08 14  00 8F 20 42 59 20 4D 49  |TEST.;.... BY MI|
00000030: 43 48 41 45 4C 20 45 53  4B 49 4E 00 51 08 1E 00  |CHAEL ESKIN.Q...|
00000040: 8F 20 32 38 20 4A 41 4E  55 41 52 59 20 31 39 38  |. 28 JANUARY 198|
00000050: 34 00 6E 08 28 00 8F 20  43 4F 4D 4D 4F 44 4F 52  |4.n.(.. COMMODOR|
00000060: 45 20 31 35 32 35 20 56  45 52 53 49 4F 4E 00 84  |E 1525 VERSION..|
00000070: 08 32 00 97 35 33 32 38  30 2C 30 3A 97 35 33 32  |.2..53280,0:.532|
00000080: 38 31 2C 30 00 8E 08 3C  00 8D 35 30 30 30 00 AE  |81,0...<..5000..|
00000090: 08 5A 00 8B 41 B2 30 A7  41 B2 31 3A 93 22 44 50  |.Z..A.0.A.1:."DP|
000000A0: 47 45 58 57 50 2E 4F 42  4A 22 2C 38 2C 31 00 DC  |GEXWP.OBJ",8,1..|
000000B0: 08 5F 00 8B 41 B2 31 A7  41 B2 32 3A 97 38 33 30  |._..A.1.A.2:.830|
000000C0: 2C C6 28 22 50 22 29 3A  93 22 44 49 52 45 43 54  |,.("P"):."DIRECT|
000000D0: 4F 52 59 2E 45 58 45 22  2C 38 2C 31 00 FB 08 64  |ORY.EXE",8,1...d|
000000E0: 00 8B 41 B2 32 A7 41 B2  33 3A 93 22 57 49 4E 44  |..A.2.A.3:."WIND|
000000F0: 4F 57 2E 4F 42 4A 22 2C  38 2C 31 00 23 09 6F 00  |OW.OBJ",8,1.#.o.|
00000100: 8D 35 30 30 30 3A 99 20  22 11 53 45 4C 45 43 54  |.5000:. ".SELECT|
00000110: 20 47 52 41 50 48 49 43  53 20 50 41 43 4B 41 47  | GRAPHICS PACKAG|
00000120: 45 3A 22 00 47 09 70 00  99 20 22 11 31 29 20 46  |E:".G.p.. ".1) F|
00000130: 4C 45 58 49 44 52 41 57  22 3A 99 22 11 32 29 20  |LEXIDRAW":.".2) |
00000140: 44 4F 4F 44 4C 45 22 00  8A 09 71 00 47 50 B2 33  |DOODLE"...q.GP.3|
00000150: 3A 99 22 11 33 29 20 51  55 49 54 22 3A 97 31 39  |:.".3) QUIT":.19|
00000160: 38 2C 30 3A 85 22 11 57  48 49 43 48 20 4F 4E 45  |8,0:.".WHICH ONE|
00000170: 22 3B 47 50 3A 8B 28 47  50 B3 31 29 B0 28 47 50  |";GP:.(GP.1).(GP|
00000180: B1 32 29 A7 89 35 30 30  30 30 00 A8 09 72 00 97  |.2)..50000...r..|
00000190: 34 39 31 37 33 2C 30 3A  8B 47 50 B2 32 A7 97 34  |49173,0:.GP.2..4|
000001A0: 39 31 37 33 2C 32 35 35  00 CD 09 78 00 8D 35 30  |9173,255...x..50|
000001B0: 30 30 3A 99 20 22 11 44  4F 20 59 4F 55 20 57 49  |00:. ".DO YOU WI|
000001C0: 53 48 20 54 4F 20 50 52  49 4E 54 3A 22 00 E5 09  |SH TO PRINT:"...|
000001D0: 7A 00 99 20 22 11 31 29  20 4F 4E 45 20 50 49 43  |z.. ".1) ONE PIC|
000001E0: 54 55 52 45 22 00 F6 09  7D 00 99 20 22 11 32 29  |TURE"...}.. ".2)|
000001F0: 20 51 55 49 54 22 00 24  0A 7E 00 97 31 39 38 2C  | QUIT".$.~..198,|
00000200: 30 3A 85 20 22 11 57 48  49 43 48 20 4F 4E 45 22  |0:. ".WHICH ONE"|
00000210: 3B 4B 3A 8B 20 28 4B B3  31 29 B0 28 4B B1 33 29  |;K:. (K.1).(K.3)|
00000220: A7 31 32 30 00 36 0A 80  00 8B 20 4B B2 32 20 A7  |.120.6.... K.2 .|
00000230: 20 35 30 30 30 30 00 5D  0A 82 00 8D 35 30 30 30  | 50000.]....5000|
00000240: 3A 85 20 22 11 50 49 43  54 55 52 45 20 4E 41 4D  |:. ".PICTURE NAM|
00000250: 45 20 28 24 3D 44 49 52  29 22 3B 41 24 00 9A 0A  |E ($=DIR)";A$...|
00000260: 8C 00 8B 41 24 B2 22 24  22 A7 20 99 22 11 22 3A  |...A$."$". .".":|
00000270: 9E 35 32 34 38 30 3A 97  31 39 38 2C 30 3A 99 22  |.52480:.198,0:."|
00000280: 11 48 49 54 20 41 4E 59  20 4B 45 59 20 54 4F 20  |.HIT ANY KEY TO |
00000290: 43 4F 4E 54 49 4E 55 45  3A 22 00 B9 0A 91 00 8B  |CONTINUE:"......|
000002A0: 41 24 B2 22 24 22 A7 92  31 39 38 2C 31 3A 97 31  |A$."$"..198,1:.1|
000002B0: 39 38 2C 30 3A 89 31 33  30 00 D1 0A 96 00 53 B2  |98,0:.130.....S.|
000002C0: 31 3A 8D 20 31 30 30 30  3A 8B 45 52 B2 31 A7 35  |1:. 1000:.ER.1.5|
000002D0: 30 00 0D 0B 9F 00 8D 20  33 30 30 30 3A 8D 35 30  |0...... 3000:.50|
000002E0: 30 30 3A 99 22 11 54 48  49 53 20 50 49 43 54 55  |00:.".THIS PICTU|
000002F0: 52 45 20 49 53 22 57 45  AB 57 53 22 54 45 58 54  |RE IS"WE.WS"TEXT|
00000300: 20 4C 49 4E 45 53 20 48  49 47 48 2E 22 00 31 0B  | LINES HIGH.".1.|
00000310: A0 00 97 31 39 38 2C 30  3A 85 20 22 11 11 46 49  |...198,0:. "..FI|
00000320: 4C 45 20 54 4F 20 43 52  45 41 54 45 3A 22 3B 43  |LE TO CREATE:";C|
00000330: 24 00 58 0B A5 00 99 20  22 11 50 4C 45 41 53 45  |$.X.... ".PLEASE|
00000340: 20 49 4E 53 45 52 54 20  44 45 53 54 49 4E 41 54  | INSERT DESTINAT|
00000350: 49 4F 4E 20 44 49 53 4B  00 8E 0B AA 00 97 20 31  |ION DISK...... 1|
00000360: 39 38 2C 30 3A 99 22 48  49 54 20 41 4E 59 20 4B  |98,0:."HIT ANY K|
00000370: 45 59 20 57 48 45 4E 20  52 45 41 44 59 3A 22 3A  |EY WHEN READY:":|
00000380: 92 20 31 39 38 2C 31 3A  97 31 39 38 2C 30 00 B4  |. 198,1:.198,0..|
00000390: 0B AF 00 99 20 22 11 11  43 52 45 41 54 49 4E 47  |.... "..CREATING|
000003A0: 20 50 52 49 4E 54 45 52  20 46 49 4C 45 2E 2E 2E  | PRINTER FILE...|
000003B0: 20 22 43 24 00 CF 0B B0  00 9F 31 35 2C 38 2C 31  | "C$......15,8,1|
000003C0: 35 2C 22 53 30 3A 22 AA  43 24 3A A0 20 31 35 00  |5,"S0:".C$:. 15.|
000003D0: E4 0B B4 00 9F 31 2C 38  2C 32 2C 43 24 AA 22 2C  |.....1,8,2,C$.",|
000003E0: 53 2C 57 22 00 F2 0B BE  00 97 20 34 39 31 38 32  |S,W"...... 49182|
000003F0: 2C 30 00 08 0C C8 00 9E  20 34 39 31 35 32 3A A0  |,0...... 49152:.|
00000400: 31 3A 8D 20 32 30 30 30  00 15 0C CD 00 8B 45 52  |1:. 2000......ER|
00000410: B2 31 A7 35 30 00 45 0C  D2 00 99 A3 31 31 29 22  |.1.50.E.....11)"|
00000420: 11 11 12 4D 49 53 53 49  4F 4E 20 43 4F 4D 50 4C  |...MISSION COMPL|
00000430: 45 54 45 44 21 92 22 3A  81 20 49 B2 31 A4 31 32  |ETED!.":. I.1.12|
00000440: 30 30 3A 82 49 00 4E 0C  DC 00 89 20 35 30 00 61  |00:.I.N.... 50.a|
00000450: 0C E8 03 8F 20 4C 4F 41  44 20 50 49 43 54 55 52  |.... LOAD PICTUR|
00000460: 45 00 A2 0C EA 03 99 20  22 11 49 4E 53 45 52 54  |E...... ".INSERT|
00000470: 20 50 49 43 54 55 52 45  20 44 49 53 4B 20 41 4E  | PICTURE DISK AN|
00000480: 44 20 50 52 45 53 53 20  41 4E 59 20 4B 45 59 22  |D PRESS ANY KEY"|
00000490: 3A 97 20 31 39 38 2C 30  3A 92 20 31 39 38 2C 31  |:. 198,0:. 198,1|
000004A0: 3A 99 00 C7 0C ED 03 99  20 22 4C 4F 41 44 49 4E  |:....... "LOADIN|
000004B0: 47 2E 2E 2E 20 22 41 24  22 20 49 4E 20 42 55 46  |G... "A$" IN BUF|
000004C0: 46 45 52 20 23 22 53 00  D2 0C EE 03 8D 35 35 30  |FER #"S......550|
000004D0: 30 30 00 F2 0C F2 03 8B  20 C3 28 41 24 29 B1 31  |00...... .(A$).1|
000004E0: 36 20 A7 20 41 24 B2 4C  45 46 54 28 41 24 2C 31  |6 . A$.LEFT(A$,1|
000004F0: 36 29 00 FF 0C FC 03 46  4C B2 C3 28 41 24 29 00  |6).....FL..(A$).|
00000500: 0E 0D 06 04 97 20 34 39  31 38 35 2C 46 4C 00 37  |..... 49185,FL.7|
00000510: 0D 10 04 81 20 49 B2 31  20 A4 20 46 4C 3A 97 34  |.... I.1 . FL:.4|
00000520: 39 31 38 35 AA 49 2C C6  28 CA 28 41 24 2C 49 2C  |9185.I,.(.(A$,I,|
00000530: 31 29 29 3A 82 20 49 00  5B 0D 15 04 8B 47 50 B2  |1)):. I.[....GP.|
00000540: 32 A7 97 34 39 31 38 33  2C 30 3A 97 34 39 31 38  |2..49183,0:.4918|
00000550: 34 2C 31 30 38 3A 89 31  30 36 30 00 87 0D 1A 04  |4,108:.1060.....|
00000560: 97 20 34 39 31 38 33 2C  30 3A 97 20 34 39 31 38  |. 49183,0:. 4918|
00000570: 34 2C 33 32 3A 8B 20 53  B2 32 20 A7 20 97 20 34  |4,32:. S.2 . . 4|
00000580: 39 31 38 34 2C 36 34 00  9A 0D 24 04 9E 20 34 39  |9184,64...$.. 49|
00000590: 31 35 35 3A 97 31 39 38  2C 30 00 AD 0D 2E 04 8B  |155:.198,0......|
000005A0: 20 47 50 B3 B1 32 20 A7  20 32 30 30 30 00 DA 0D  | GP..2 . 2000...|
000005B0: 38 04 97 20 34 39 31 38  33 2C 30 3A 97 20 34 39  |8.. 49183,0:. 49|
000005C0: 31 38 34 2C 33 32 20 3A  8B 20 53 B2 32 20 A7 20  |184,32 :. S.2 . |
000005D0: 97 20 34 39 31 38 34 2C  36 34 00 F4 0D 42 04 9E  |. 49184,64...B..|
000005E0: 20 34 39 31 37 30 3A 8F  20 4D 4F 56 45 20 44 4F  | 49170:. MOVE DO|
000005F0: 4F 44 4C 45 00 27 0E D0  07 45 52 B2 30 3A 9F 20  |ODLE.'...ER.0:. |
00000600: 31 35 2C 38 2C 31 35 3A  84 31 35 2C 41 31 2C 42  |15,8,15:.15,A1,B|
00000610: 24 2C 43 31 2C 44 31 3A  A0 31 35 3A 8B 20 41 31  |$,C1,D1:.15:. A1|
00000620: B3 32 30 20 A7 20 8E 00  63 0E DA 07 99 20 22 11  |.20 . ..c.... ".|
00000630: 12 44 49 53 4B 20 45 52  52 4F 52 92 3A 20 22 3B  |.DISK ERROR.: ";|
00000640: 41 31 22 20 22 42 24 22  20 22 43 31 3B 44 31 3A  |A1" "B$" "C1;D1:|
00000650: 45 52 B2 31 3A 81 49 B2  31 A4 32 30 30 30 3A 82  |ER.1:.I.1.2000:.|
00000660: 49 3A 8E 00 7E 0E B8 0B  8F 20 53 45 4C 45 43 54  |I:..~.... SELECT|
00000670: 20 42 49 54 4D 41 50 20  57 49 4E 44 4F 57 00 8A  | BITMAP WINDOW..|
00000680: 0E C2 0B 9E 20 34 39 31  36 31 00 9F 0E CC 0B 57  |.... 49161.....W|
00000690: 53 B2 30 3A 57 45 B2 31  3A 97 31 39 38 2C 30 00  |S.0:WE.1:.198,0.|
000006A0: BF 0E D6 0B 97 20 34 39  31 38 30 2C 57 53 3A 97  |..... 49180,WS:.|
000006B0: 34 39 31 38 31 2C 57 45  3A 9E 34 39 31 35 38 00  |49181,WE:.49158.|
000006C0: DB 0E DB 0B 8B 20 28 C2  28 35 36 33 32 31 29 AF  |..... (.(56321).|
000006D0: 34 29 B2 30 20 A7 20 33  32 30 30 00 F4 0E E0 0B  |4).0 . 3200.....|
000006E0: A1 20 56 24 3A 8B 20 56  24 B2 22 5F 22 20 A7 20  |. V$:. V$."_" . |
000006F0: 33 35 30 30 00 11 0F EA  0B 8B 20 56 24 B2 22 11  |3500...... V$.".|
00000700: 22 20 A7 20 57 53 B2 57  53 AA 31 3A 89 33 30 37  |" . WS.WS.1:.307|
00000710: 30 00 2E 0F F4 0B 8B 20  56 24 B2 22 91 22 20 A7  |0...... V$."." .|
00000720: 20 57 53 B2 57 53 AB 31  3A 89 33 30 37 30 00 45  | WS.WS.1:.3070.E|
00000730: 0F F9 0B 8B 20 56 24 B2  C7 28 31 33 29 A7 20 89  |.... V$..(13). .|
00000740: 20 33 30 32 30 00 57 0F  FE 0B 8B 20 57 53 B3 30  | 3020.W.... WS.0|
00000750: 20 A7 20 57 53 B2 30 00  6B 0F 08 0C 8B 20 57 53  | . WS.0.k.... WS|
00000760: B1 32 34 20 A7 20 57 53  B2 32 34 00 77 0F 12 0C  |.24 . WS.24.w...|
00000770: 57 45 B2 57 53 AA 31 00  82 0F 1C 0C 89 20 33 30  |WE.WS.1...... 30|
00000780: 33 30 00 9E 0F 80 0C 57  53 B2 B5 28 28 C2 28 35  |30.....WS..((.(5|
00000790: 33 32 36 38 29 AB 35 35  29 AD 38 29 AA 31 00 A9  |3268).55).8).1..|
000007A0: 0F 8A 0C 89 20 33 30 37  30 00 C9 0F AC 0D 97 20  |.... 3070...... |
000007B0: 34 39 31 38 30 2C 57 53  3A 97 34 39 31 38 31 2C  |49180,WS:.49181,|
000007C0: 57 45 3A 9E 34 39 31 35  38 00 E5 0F CA 0D 8B 20  |WE:.49158...... |
000007D0: 28 C2 28 35 36 33 32 31  29 AF 34 29 B2 30 20 A7  |(.(56321).4).0 .|
000007E0: 20 33 37 30 30 00 FE 0F  D4 0D A1 20 56 24 3A 8B  | 3700...... V$:.|
000007F0: 20 56 24 B2 22 5F 22 20  A7 20 34 30 30 30 00 1B  | V$."_" . 4000..|
00000800: 10 DE 0D 8B 20 56 24 B2  22 11 22 20 A7 20 57 45  |.... V$."." . WE|
00000810: B2 57 45 AA 31 3A 89 33  35 37 30 00 38 10 E8 0D  |.WE.1:.3570.8...|
00000820: 8B 20 56 24 B2 22 91 22  20 A7 20 57 45 B2 57 45  |. V$."." . WE.WE|
00000830: AB 31 3A 89 33 35 37 30  00 4F 10 ED 0D 8B 20 56  |.1:.3570.O.... V|
00000840: 24 B2 C7 28 31 33 29 A7  20 89 20 33 30 32 30 00  |$..(13). . 3020.|
00000850: 67 10 F2 0D 8B 20 57 45  B3 57 53 AA 31 20 A7 20  |g.... WE.WS.1 . |
00000860: 57 45 B2 57 53 AA 31 00  7B 10 FC 0D 8B 20 57 45  |WE.WS.1.{.... WE|
00000870: B1 32 35 20 A7 20 57 45  B2 32 35 00 86 10 10 0E  |.25 . WE.25.....|
00000880: 89 20 33 35 30 30 00 A2  10 74 0E 57 45 B2 B5 28  |. 3500...t.WE..(|
00000890: 28 C2 28 35 33 32 36 38  29 AB 35 35 29 AD 38 29  |(.(53268).55).8)|
000008A0: AA 31 00 AD 10 7E 0E 89  20 33 35 37 30 00 CB 10  |.1...~.. 3570...|
000008B0: A0 0F 8F 20 45 58 49 54  20 46 52 4F 4D 20 57 49  |... EXIT FROM WI|
000008C0: 4E 44 4F 57 20 53 45 4C  45 43 54 00 F3 10 B4 0F  |NDOW SELECT.....|
000008D0: 97 20 34 39 31 37 34 2C  31 36 3A 97 34 39 31 37  |. 49174,16:.4917|
000008E0: 35 2C 31 3A 8B 47 50 B2  32 A7 97 34 39 31 37 34  |5,1:.GP.2..49174|
000008F0: 2C 36 34 00 10 11 BE 0F  97 20 34 39 31 37 36 2C  |,64...... 49176,|
00000900: 57 53 AC 38 3A 97 34 39  31 37 37 2C 57 45 AC 38  |WS.8:.49177,WE.8|
00000910: 00 4A 11 C8 0F 4C 52 B2  B5 28 28 28 57 45 AB 57  |.J...LR..(((WE.W|
00000920: 53 29 AC 38 29 AD 37 29  AC 37 3A 97 34 39 31 37  |S).8).7).7:.4917|
00000930: 38 2C 4C 52 3A 97 34 39  31 37 39 2C 28 28 57 45  |8,LR:.49179,((WE|
00000940: AB 57 53 29 AC 38 29 AB  4C 52 00 5E 11 D2 0F 97  |.WS).8).LR.^....|
00000950: 31 39 38 2C 30 3A 9E 34  39 31 36 34 3A 8E 00 95  |198,0:.49164:...|
00000960: 11 88 13 99 20 C7 28 31  34 32 29 22 93 05 20 20  |.... .(142)"..  |
00000970: 20 2D 20 50 41 50 45 52  20 43 4C 49 50 20 50 49  | - PAPER CLIP PI|
00000980: 43 54 55 52 45 20 46 49  4C 45 20 43 52 45 41 54  |CTURE FILE CREAT|
00000990: 4F 52 20 2D 22 00 B4 11  92 13 99 20 22 11 50 52  |OR -"...... ".PR|
000009A0: 49 4E 54 45 52 3A 20 47  45 4D 49 4E 49 20 31 30  |INTER: GEMINI 10|
000009B0: 58 22 3A 8E 00 E7 11 50  C3 9F 38 2C 38 2C 30 2C  |X":....P..8,8,0,|
000009C0: 22 44 2C 50 2C 52 22 3A  9F 31 35 2C 38 2C 31 35  |"D,P,R":.15,8,15|
000009D0: 3A 84 31 35 2C 4A 24 2C  4B 24 2C 4C 24 2C 4D 24  |:.15,J$,K$,L$,M$|
000009E0: 3A A0 31 35 3A A0 38 00  FB 11 5A C3 8B C5 28 4A  |:.15:.8...Z...(J|
000009F0: 24 29 B2 30 A7 93 22 44  22 2C 38 00 2C 12 64 C3  |$).0.."D",8.,.d.|
00000A00: 99 22 93 11 11 11 11 1D  1D 1D 1D 1D 1D 1C 50 4C  |."............PL|
00000A10: 45 41 53 45 20 49 4E 53  45 52 54 20 49 4E 54 45  |EASE INSERT INTE|
00000A20: 47 52 41 54 4F 52 20 44  49 53 4B 22 00 4A 12 6E  |GRATOR DISK".J.n|
00000A30: C3 99 A3 31 31 29 22 41  4E 44 20 50 52 45 53 53  |...11)"AND PRESS|
00000A40: 20 41 4E 59 20 4B 45 59  05 22 00 63 12 78 C3 97  | ANY KEY.".c.x..|
00000A50: 31 39 38 2C 30 3A 92 31  39 38 2C 31 3A 89 35 30  |198,0:.198,1:.50|
00000A60: 30 30 30 00 87 12 D8 D6  42 24 B2 41 24 AA 22 2C  |000.....B$.A$.",|
00000A70: 50 2C 52 22 3A 9F 38 2C  38 2C 30 2C 41 24 3A 9F  |P,R":.8,8,0,A$:.|
00000A80: 31 35 2C 38 2C 31 35 00  A2 12 E2 D6 84 31 35 2C  |15,8,15......15,|
00000A90: 4A 24 2C 4B 24 2C 4C 24  2C 4D 24 3A A0 31 35 3A  |J$,K$,L$,M$:.15:|
00000AA0: A0 38 00 B1 12 EC D6 8B  C5 28 4A 24 29 B2 30 A7  |.8.......(J$).0.|
00000AB0: 8E 00 D9 12 F6 D6 99 22  93 11 11 11 11 1D 1D 1D  |......."........|
00000AC0: 1D 20 1C 46 49 4C 45 20  4E 4F 54 20 46 4F 55 4E  |. .FILE NOT FOUN|
00000AD0: 44 20 45 52 52 4F 52 05  22 00 EF 12 00 D7 81 58  |D ERROR."......X|
00000AE0: B2 31 A4 31 30 30 30 3A  82 58 3A 89 31 31 31 00  |.1.1000:.X:.111.|
00000AF0: 22 13 60 EA 9F 31 2C 38  2C 31 35 2C 22 53 30 3A  |".`..1,8,15,"S0:|
00000B00: 57 4F 52 44 46 4C 45 58  2D 47 45 58 22 3A A0 31  |WORDFLEX-GEX":.1|
00000B10: 3A 94 22 57 4F 52 44 46  4C 45 58 2D 47 45 58 22  |:."WORDFLEX-GEX"|
00000B20: 2C 38 00 00 00                                    |,8...           |

..$.... WORD PROCESSOR GRAPHICS TEST.;..
.. BY MICHAEL ESKIN.Q.... 28 JANUARY 198
4.N.(.. COMMODORE 1525 VERSION...2..5328
0,0:.53281,0...<..5000...Z..A.0.A.1:."DP
GEXWP.OBJ",8,1..._..A.1.A.2:.830,F("P"):
."DIRECTORY.EXE",8,1...D..A.2.A.3:."WIND
OW.OBJ",8,1.#.O..5000:. ".SELECT GRAPHIC
S PACKAGE:".G.P.. ".1) FLEXIDRAW":.".2) 
DOODLE"...Q.GP.3:.".3) QUIT":.198,0:.".W
HICH ONE";GP:.(GP.1).(GP.2)..50000...R..
49173,0:.GP.2..49173,255.M.X..5000:. ".D
O YOU WISH TO PRINT:"...Z.. ".1) ONE PIC
TURE"...}.. ".2) QUIT".$.~..198,0:. ".WH
ICH ONE";K:. (K.1).(K.3).120.6.... K.2 .
 50000.]....5000:. ".PICTURE NAME ($=DIR
)";A$......A$."$". .".":.52480:.198,0:."
.HIT ANY KEY TO CONTINUE:"......A$."$"..
198,1:.198,0:.130.Q...S.1:. 1000:.ER.1.5
0...... 3000:.5000:.".THIS PICTURE IS"WE
.WS"TEXT LINES HIGH.".1. ..198,0:. "..FI
LE TO CREATE:";C$.X.... ".PLEASE INSERT 
DESTINATION DISK...... 198,0:."HIT ANY K
EY WHEN READY:":. 198,1:.198,0...... "..
CREATING PRINTER FILE... "C$.O....15,8,1
5,"S0:".C$:  15......1,8,2,C$.",S,W"....
.. 49182,0...H.. 49152: 1:. 2000...M..ER
.1.50.E.R...11)"...MISSION COMPLETED!.":
. I.1.1200:.I.N.... 50.A.... LOAD PICTUR
E...... ".INSERT PICTURE DISK AND PRESS 
ANY KEY":. 198,0:. 198,1:..G.... "LOADIN
G... "A$" IN BUFFER #"S.R....55000......
 C(A$).16 . A$.LEFT(A$,16).....FL.C(A$).
..... 49185,FL.7.... I.1 . FL:.49185.I,F
(J(A$,I,1)):. I.[....GP.2..49183,0:.4918
4,108:.1060...... 49183,0:. 49184,32:. S
.2 . . 49184,64...$.. 49155:.198,0......
 GP..2 . 2000.Z.8.. 49183,0:. 49184,32 :
. S.2 . . 49184,64...B.. 49170:. MOVE DO
ODLE.'.P.ER.0:. 15,8,15:.15,A1,B$,C1,D1:
 15:. A1.20 . ..C.Z.. "..DISK ERROR.: ";
A1" "B$" "C1;D1:ER.1:.I.1.2000:.I:..~...
. SELECT BITMAP WINDOW...B.. 49161...L.W
S.0:WE.1:.198,0...V.. 49180,WS:.49181,WE
:.49158...... (B(56321).4).0 . 3200.....
. V$:. V$."_" . 3500...... V$."." . WS.W
S.1:.3070...... V$."." . WS.WS.1:.3070.E
.... V$.G(13). . 3020.W.... WS.0 . WS.0.
K.... WS.24 . WS.24.W...WE.WS.1...... 30
30.....WS..((B(53268).55).8).1...... 307
0.I.... 49180,WS:.49181,WE:.49158...J.. 
(B(56321).4).0 . 3700...T.. V$:. V$."_" 
. 4000...... V$."." . WE.WE.1:.3570.8...
. V$."." . WE.WE.1:.3570.O.... V$.G(13).
 . 3020.G.... WE.WS.1 . WE.WS.1.{.... WE
.25 . WE.25...... 3500...T.WE..((B(53268
).55).8).1...~.. 3570.K. .. EXIT FROM WI
NDOW SELECT...... 49174,16:.49175,1:.GP.
2..49174,64...... 49176,WS.8:.49177,WE.8
.J.H.LR..(((WE.WS).8).7).7:.49178,LR:.49
179,((WE.WS).8).LR.^.R..198,0:.49164:...
.... G(142)"..   - PAPER CLIP PICTURE FI
LE CREATOR -"...... ".PRINTER: GEMINI 10
X":....PC.8,8,0,"D,P,R":.15,8,15:.15,J$,
K$,L$,M$: 15: 8...ZC.E(J$).0.."D",8.,.DC
."............PLEASE INSERT INTEGRATOR D
ISK".J.NC..11)"AND PRESS ANY KEY.".C.XC.
198,0:.198,1:.50000...XVB$.A$.",P,R":.8,
8,0,A$:.15,8,15....V.15,J$,K$,L$,M$: 15:
 8....V.E(J$).0...Y..V."......... .FILE 
NOT FOUND ERROR."....W.X.1.1000:.X:.111.
".`..1,8,15,"S0:WORDFLEX-GEX": 1:."WORDF
LEX-GEX",8...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL