WORDFLEX-1525

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 AF  |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: 31 35 32 35 57 50 2E 4F  42 4A 22 2C 38 2C 31 00  |1525WP.OBJ",8,1.|
000000B0: DD 08 5F 00 8B 41 B2 31  A7 41 B2 32 3A 97 38 33  |.._..A.1.A.2:.83|
000000C0: 30 2C C6 28 22 50 22 29  3A 93 22 44 49 52 45 43  |0,.("P"):."DIREC|
000000D0: 54 4F 52 59 2E 45 58 45  22 2C 38 2C 31 00 FC 08  |TORY.EXE",8,1...|
000000E0: 64 00 8B 41 B2 32 A7 41  B2 33 3A 93 22 57 49 4E  |d..A.2.A.3:."WIN|
000000F0: 44 4F 57 2E 4F 42 4A 22  2C 38 2C 31 00 24 09 6F  |DOW.OBJ",8,1.$.o|
00000100: 00 8D 35 30 30 30 3A 99  20 22 11 53 45 4C 45 43  |..5000:. ".SELEC|
00000110: 54 20 47 52 41 50 48 49  43 53 20 50 41 43 4B 41  |T GRAPHICS PACKA|
00000120: 47 45 3A 22 00 48 09 70  00 99 20 22 11 31 29 20  |GE:".H.p.. ".1) |
00000130: 46 4C 45 58 49 44 52 41  57 22 3A 99 22 11 32 29  |FLEXIDRAW":.".2)|
00000140: 20 44 4F 4F 44 4C 45 22  00 8B 09 71 00 47 50 B2  | DOODLE"...q.GP.|
00000150: 33 3A 99 22 11 33 29 20  51 55 49 54 22 3A 97 31  |3:.".3) QUIT":.1|
00000160: 39 38 2C 30 3A 85 22 11  57 48 49 43 48 20 4F 4E  |98,0:.".WHICH ON|
00000170: 45 22 3B 47 50 3A 8B 28  47 50 B3 31 29 B0 28 47  |E";GP:.(GP.1).(G|
00000180: 50 B1 32 29 A7 89 35 30  30 30 30 00 A9 09 72 00  |P.2)..50000...r.|
00000190: 97 34 39 31 37 33 2C 30  3A 8B 47 50 B2 32 A7 97  |.49173,0:.GP.2..|
000001A0: 34 39 31 37 33 2C 32 35  35 00 CE 09 78 00 8D 35  |49173,255...x..5|
000001B0: 30 30 30 3A 99 20 22 11  44 4F 20 59 4F 55 20 57  |000:. ".DO YOU W|
000001C0: 49 53 48 20 54 4F 20 50  52 49 4E 54 3A 22 00 E6  |ISH TO PRINT:"..|
000001D0: 09 7A 00 99 20 22 11 31  29 20 4F 4E 45 20 50 49  |.z.. ".1) ONE PI|
000001E0: 43 54 55 52 45 22 00 F7  09 7D 00 99 20 22 11 32  |CTURE"...}.. ".2|
000001F0: 29 20 51 55 49 54 22 00  25 0A 7E 00 97 31 39 38  |) QUIT".%.~..198|
00000200: 2C 30 3A 85 20 22 11 57  48 49 43 48 20 4F 4E 45  |,0:. ".WHICH ONE|
00000210: 22 3B 4B 3A 8B 20 28 4B  B3 31 29 B0 28 4B B1 33  |";K:. (K.1).(K.3|
00000220: 29 A7 31 32 30 00 37 0A  80 00 8B 20 4B B2 32 20  |).120.7.... K.2 |
00000230: A7 20 35 30 30 30 30 00  5E 0A 82 00 8D 35 30 30  |. 50000.^....500|
00000240: 30 3A 85 20 22 11 50 49  43 54 55 52 45 20 4E 41  |0:. ".PICTURE NA|
00000250: 4D 45 20 28 24 3D 44 49  52 29 22 3B 41 24 00 9B  |ME ($=DIR)";A$..|
00000260: 0A 8C 00 8B 41 24 B2 22  24 22 A7 20 99 22 11 22  |....A$."$". ."."|
00000270: 3A 9E 35 32 34 38 30 3A  97 31 39 38 2C 30 3A 99  |:.52480:.198,0:.|
00000280: 22 11 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |".HIT ANY KEY TO|
00000290: 20 43 4F 4E 54 49 4E 55  45 3A 22 00 BA 0A 91 00  | CONTINUE:".....|
000002A0: 8B 41 24 B2 22 24 22 A7  92 31 39 38 2C 31 3A 97  |.A$."$"..198,1:.|
000002B0: 31 39 38 2C 30 3A 89 31  33 30 00 D2 0A 96 00 53  |198,0:.130.....S|
000002C0: B2 31 3A 8D 20 31 30 30  30 3A 8B 45 52 B2 31 A7  |.1:. 1000:.ER.1.|
000002D0: 35 30 00 0E 0B 9F 00 8D  20 33 30 30 30 3A 8D 35  |50...... 3000:.5|
000002E0: 30 30 30 3A 99 22 11 54  48 49 53 20 50 49 43 54  |000:.".THIS PICT|
000002F0: 55 52 45 20 49 53 22 57  45 AB 57 53 22 54 45 58  |URE IS"WE.WS"TEX|
00000300: 54 20 4C 49 4E 45 53 20  48 49 47 48 2E 22 00 32  |T LINES HIGH.".2|
00000310: 0B A0 00 97 31 39 38 2C  30 3A 85 20 22 11 11 46  |....198,0:. "..F|
00000320: 49 4C 45 20 54 4F 20 43  52 45 41 54 45 3A 22 3B  |ILE TO CREATE:";|
00000330: 43 24 00 59 0B A5 00 99  20 22 11 50 4C 45 41 53  |C$.Y.... ".PLEAS|
00000340: 45 20 49 4E 53 45 52 54  20 44 45 53 54 49 4E 41  |E INSERT DESTINA|
00000350: 54 49 4F 4E 20 44 49 53  4B 00 8F 0B AA 00 97 20  |TION DISK...... |
00000360: 31 39 38 2C 30 3A 99 22  48 49 54 20 41 4E 59 20  |198,0:."HIT ANY |
00000370: 4B 45 59 20 57 48 45 4E  20 52 45 41 44 59 3A 22  |KEY WHEN READY:"|
00000380: 3A 92 20 31 39 38 2C 31  3A 97 31 39 38 2C 30 00  |:. 198,1:.198,0.|
00000390: B5 0B AF 00 99 20 22 11  11 43 52 45 41 54 49 4E  |..... "..CREATIN|
000003A0: 47 20 50 52 49 4E 54 45  52 20 46 49 4C 45 2E 2E  |G PRINTER FILE..|
000003B0: 2E 20 22 43 24 00 D0 0B  B0 00 9F 31 35 2C 38 2C  |. "C$......15,8,|
000003C0: 31 35 2C 22 53 30 3A 22  AA 43 24 3A A0 20 31 35  |15,"S0:".C$:. 15|
000003D0: 00 E5 0B B4 00 9F 31 2C  38 2C 32 2C 43 24 AA 22  |......1,8,2,C$."|
000003E0: 2C 53 2C 57 22 00 F3 0B  BE 00 97 20 34 39 31 38  |,S,W"...... 4918|
000003F0: 32 2C 30 00 09 0C C8 00  9E 20 34 39 31 35 32 3A  |2,0...... 49152:|
00000400: A0 31 3A 8D 20 32 30 30  30 00 16 0C CD 00 8B 45  |.1:. 2000......E|
00000410: 52 B2 31 A7 35 30 00 46  0C D2 00 99 A3 31 31 29  |R.1.50.F.....11)|
00000420: 22 11 11 12 4D 49 53 53  49 4F 4E 20 43 4F 4D 50  |"...MISSION COMP|
00000430: 4C 45 54 45 44 21 92 22  3A 81 20 49 B2 31 A4 31  |LETED!.":. I.1.1|
00000440: 32 30 30 3A 82 49 00 4F  0C DC 00 89 20 35 30 00  |200:.I.O.... 50.|
00000450: 62 0C E8 03 8F 20 4C 4F  41 44 20 50 49 43 54 55  |b.... LOAD PICTU|
00000460: 52 45 00 A3 0C EA 03 99  20 22 11 49 4E 53 45 52  |RE...... ".INSER|
00000470: 54 20 50 49 43 54 55 52  45 20 44 49 53 4B 20 41  |T PICTURE DISK A|
00000480: 4E 44 20 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |ND PRESS ANY KEY|
00000490: 22 3A 97 20 31 39 38 2C  30 3A 92 20 31 39 38 2C  |":. 198,0:. 198,|
000004A0: 31 3A 99 00 C8 0C ED 03  99 20 22 4C 4F 41 44 49  |1:....... "LOADI|
000004B0: 4E 47 2E 2E 2E 20 22 41  24 22 20 49 4E 20 42 55  |NG... "A$" IN BU|
000004C0: 46 46 45 52 20 23 22 53  00 D3 0C EE 03 8D 35 35  |FFER #"S......55|
000004D0: 30 30 30 00 F3 0C F2 03  8B 20 C3 28 41 24 29 B1  |000...... .(A$).|
000004E0: 31 36 20 A7 20 41 24 B2  4C 45 46 54 28 41 24 2C  |16 . A$.LEFT(A$,|
000004F0: 31 36 29 00 00 0D FC 03  46 4C B2 C3 28 41 24 29  |16).....FL..(A$)|
00000500: 00 0F 0D 06 04 97 20 34  39 31 38 35 2C 46 4C 00  |...... 49185,FL.|
00000510: 38 0D 10 04 81 20 49 B2  31 20 A4 20 46 4C 3A 97  |8.... I.1 . FL:.|
00000520: 34 39 31 38 35 AA 49 2C  C6 28 CA 28 41 24 2C 49  |49185.I,.(.(A$,I|
00000530: 2C 31 29 29 3A 82 20 49  00 5C 0D 15 04 8B 47 50  |,1)):. I.\....GP|
00000540: B2 32 A7 97 34 39 31 38  33 2C 30 3A 97 34 39 31  |.2..49183,0:.491|
00000550: 38 34 2C 31 30 38 3A 89  31 30 36 30 00 88 0D 1A  |84,108:.1060....|
00000560: 04 97 20 34 39 31 38 33  2C 30 3A 97 20 34 39 31  |.. 49183,0:. 491|
00000570: 38 34 2C 33 32 3A 8B 20  53 B2 32 20 A7 20 97 20  |84,32:. S.2 . . |
00000580: 34 39 31 38 34 2C 36 34  00 9B 0D 24 04 9E 20 34  |49184,64...$.. 4|
00000590: 39 31 35 35 3A 97 31 39  38 2C 30 00 AE 0D 2E 04  |9155:.198,0.....|
000005A0: 8B 20 47 50 B3 B1 32 20  A7 20 32 30 30 30 00 DB  |. GP..2 . 2000..|
000005B0: 0D 38 04 97 20 34 39 31  38 33 2C 30 3A 97 20 34  |.8.. 49183,0:. 4|
000005C0: 39 31 38 34 2C 33 32 20  3A 8B 20 53 B2 32 20 A7  |9184,32 :. S.2 .|
000005D0: 20 97 20 34 39 31 38 34  2C 36 34 00 F5 0D 42 04  | . 49184,64...B.|
000005E0: 9E 20 34 39 31 37 30 3A  8F 20 4D 4F 56 45 20 44  |. 49170:. MOVE D|
000005F0: 4F 4F 44 4C 45 00 28 0E  D0 07 45 52 B2 30 3A 9F  |OODLE.(...ER.0:.|
00000600: 20 31 35 2C 38 2C 31 35  3A 84 31 35 2C 41 31 2C  | 15,8,15:.15,A1,|
00000610: 42 24 2C 43 31 2C 44 31  3A A0 31 35 3A 8B 20 41  |B$,C1,D1:.15:. A|
00000620: 31 B3 32 30 20 A7 20 8E  00 64 0E DA 07 99 20 22  |1.20 . ..d.... "|
00000630: 11 12 44 49 53 4B 20 45  52 52 4F 52 92 3A 20 22  |..DISK ERROR.: "|
00000640: 3B 41 31 22 20 22 42 24  22 20 22 43 31 3B 44 31  |;A1" "B$" "C1;D1|
00000650: 3A 45 52 B2 31 3A 81 49  B2 31 A4 32 30 30 30 3A  |:ER.1:.I.1.2000:|
00000660: 82 49 3A 8E 00 7F 0E B8  0B 8F 20 53 45 4C 45 43  |.I:....... SELEC|
00000670: 54 20 42 49 54 4D 41 50  20 57 49 4E 44 4F 57 00  |T BITMAP WINDOW.|
00000680: 8B 0E C2 0B 9E 20 34 39  31 36 31 00 A0 0E CC 0B  |..... 49161.....|
00000690: 57 53 B2 30 3A 57 45 B2  31 3A 97 31 39 38 2C 30  |WS.0:WE.1:.198,0|
000006A0: 00 C0 0E D6 0B 97 20 34  39 31 38 30 2C 57 53 3A  |...... 49180,WS:|
000006B0: 97 34 39 31 38 31 2C 57  45 3A 9E 34 39 31 35 38  |.49181,WE:.49158|
000006C0: 00 DC 0E DB 0B 8B 20 28  C2 28 35 36 33 32 31 29  |...... (.(56321)|
000006D0: AF 34 29 B2 30 20 A7 20  33 32 30 30 00 F5 0E E0  |.4).0 . 3200....|
000006E0: 0B A1 20 56 24 3A 8B 20  56 24 B2 22 5F 22 20 A7  |.. V$:. V$."_" .|
000006F0: 20 33 35 30 30 00 12 0F  EA 0B 8B 20 56 24 B2 22  | 3500...... V$."|
00000700: 11 22 20 A7 20 57 53 B2  57 53 AA 31 3A 89 33 30  |." . WS.WS.1:.30|
00000710: 37 30 00 2F 0F F4 0B 8B  20 56 24 B2 22 91 22 20  |70./.... V$."." |
00000720: A7 20 57 53 B2 57 53 AB  31 3A 89 33 30 37 30 00  |. WS.WS.1:.3070.|
00000730: 46 0F F9 0B 8B 20 56 24  B2 C7 28 31 33 29 A7 20  |F.... V$..(13). |
00000740: 89 20 33 30 32 30 00 58  0F FE 0B 8B 20 57 53 B3  |. 3020.X.... WS.|
00000750: 30 20 A7 20 57 53 B2 30  00 6C 0F 08 0C 8B 20 57  |0 . WS.0.l.... W|
00000760: 53 B1 32 34 20 A7 20 57  53 B2 32 34 00 78 0F 12  |S.24 . WS.24.x..|
00000770: 0C 57 45 B2 57 53 AA 31  00 83 0F 1C 0C 89 20 33  |.WE.WS.1...... 3|
00000780: 30 33 30 00 9F 0F 80 0C  57 53 B2 B5 28 28 C2 28  |030.....WS..((.(|
00000790: 35 33 32 36 38 29 AB 35  35 29 AD 38 29 AA 31 00  |53268).55).8).1.|
000007A0: AA 0F 8A 0C 89 20 33 30  37 30 00 CA 0F AC 0D 97  |..... 3070......|
000007B0: 20 34 39 31 38 30 2C 57  53 3A 97 34 39 31 38 31  | 49180,WS:.49181|
000007C0: 2C 57 45 3A 9E 34 39 31  35 38 00 E6 0F CA 0D 8B  |,WE:.49158......|
000007D0: 20 28 C2 28 35 36 33 32  31 29 AF 34 29 B2 30 20  | (.(56321).4).0 |
000007E0: A7 20 33 37 30 30 00 FF  0F D4 0D A1 20 56 24 3A  |. 3700...... V$:|
000007F0: 8B 20 56 24 B2 22 5F 22  20 A7 20 34 30 30 30 00  |. V$."_" . 4000.|
00000800: 1C 10 DE 0D 8B 20 56 24  B2 22 11 22 20 A7 20 57  |..... V$."." . W|
00000810: 45 B2 57 45 AA 31 3A 89  33 35 37 30 00 39 10 E8  |E.WE.1:.3570.9..|
00000820: 0D 8B 20 56 24 B2 22 91  22 20 A7 20 57 45 B2 57  |.. V$."." . WE.W|
00000830: 45 AB 31 3A 89 33 35 37  30 00 50 10 ED 0D 8B 20  |E.1:.3570.P.... |
00000840: 56 24 B2 C7 28 31 33 29  A7 20 89 20 33 30 32 30  |V$..(13). . 3020|
00000850: 00 68 10 F2 0D 8B 20 57  45 B3 57 53 AA 31 20 A7  |.h.... WE.WS.1 .|
00000860: 20 57 45 B2 57 53 AA 31  00 7C 10 FC 0D 8B 20 57  | WE.WS.1.|.... W|
00000870: 45 B1 32 35 20 A7 20 57  45 B2 32 35 00 87 10 10  |E.25 . WE.25....|
00000880: 0E 89 20 33 35 30 30 00  A3 10 74 0E 57 45 B2 B5  |.. 3500...t.WE..|
00000890: 28 28 C2 28 35 33 32 36  38 29 AB 35 35 29 AD 38  |((.(53268).55).8|
000008A0: 29 AA 31 00 AE 10 7E 0E  89 20 33 35 37 30 00 CC  |).1...~.. 3570..|
000008B0: 10 A0 0F 8F 20 45 58 49  54 20 46 52 4F 4D 20 57  |.... EXIT FROM W|
000008C0: 49 4E 44 4F 57 20 53 45  4C 45 43 54 00 F4 10 B4  |INDOW SELECT....|
000008D0: 0F 97 20 34 39 31 37 34  2C 31 36 3A 97 34 39 31  |.. 49174,16:.491|
000008E0: 37 35 2C 31 3A 8B 47 50  B2 32 A7 97 34 39 31 37  |75,1:.GP.2..4917|
000008F0: 34 2C 36 34 00 11 11 BE  0F 97 20 34 39 31 37 36  |4,64...... 49176|
00000900: 2C 57 53 AC 38 3A 97 34  39 31 37 37 2C 57 45 AC  |,WS.8:.49177,WE.|
00000910: 38 00 4B 11 C8 0F 4C 52  B2 B5 28 28 28 57 45 AB  |8.K...LR..(((WE.|
00000920: 57 53 29 AC 38 29 AD 37  29 AC 37 3A 97 34 39 31  |WS).8).7).7:.491|
00000930: 37 38 2C 4C 52 3A 97 34  39 31 37 39 2C 28 28 57  |78,LR:.49179,((W|
00000940: 45 AB 57 53 29 AC 38 29  AB 4C 52 00 5F 11 D2 0F  |E.WS).8).LR._...|
00000950: 97 31 39 38 2C 30 3A 9E  34 39 31 36 34 3A 8E 00  |.198,0:.49164:..|
00000960: 96 11 88 13 99 20 C7 28  31 34 32 29 22 93 05 20  |..... .(142)".. |
00000970: 20 20 2D 20 50 41 50 45  52 20 43 4C 49 50 20 50  |  - PAPER CLIP P|
00000980: 49 43 54 55 52 45 20 46  49 4C 45 20 43 52 45 41  |ICTURE FILE CREA|
00000990: 54 4F 52 20 2D 22 00 C1  11 92 13 99 20 22 11 50  |TOR -"...... ".P|
000009A0: 52 49 4E 54 45 52 3A 20  43 4F 4D 4D 4F 44 4F 52  |RINTER: COMMODOR|
000009B0: 45 20 31 35 32 35 2F 4D  50 53 20 38 30 31 22 3A  |E 1525/MPS 801":|
000009C0: 8E 00 F5 11 50 C3 9F 38  2C 38 2C 30 2C 22 50 50  |....P..8,8,0,"PP|
000009D0: 2C 50 2C 52 22 3A 9F 31  35 2C 38 2C 31 35 3A 84  |,P,R":.15,8,15:.|
000009E0: 31 35 2C 4A 24 2C 4B 24  2C 4C 24 2C 4D 24 3A A0  |15,J$,K$,L$,M$:.|
000009F0: 31 35 3A A0 38 00 0A 12  5A C3 8B C5 28 4A 24 29  |15:.8...Z...(J$)|
00000A00: B2 30 A7 93 22 50 50 22  2C 38 00 3B 12 64 C3 99  |.0.."PP",8.;.d..|
00000A10: 22 93 11 11 11 11 1D 1D  1D 1D 1D 1D 1C 50 4C 45  |"............PLE|
00000A20: 41 53 45 20 49 4E 53 45  52 54 20 49 4E 54 45 47  |ASE INSERT INTEG|
00000A30: 52 41 54 4F 52 20 44 49  53 4B 22 00 59 12 6E C3  |RATOR DISK".Y.n.|
00000A40: 99 A3 31 31 29 22 41 4E  44 20 50 52 45 53 53 20  |..11)"AND PRESS |
00000A50: 41 4E 59 20 4B 45 59 05  22 00 72 12 78 C3 97 31  |ANY KEY.".r.x..1|
00000A60: 39 38 2C 30 3A 92 31 39  38 2C 31 3A 89 35 30 30  |98,0:.198,1:.500|
00000A70: 30 30 00 96 12 D8 D6 42  24 B2 41 24 AA 22 2C 50  |00.....B$.A$.",P|
00000A80: 2C 52 22 3A 9F 38 2C 38  2C 30 2C 41 24 3A 9F 31  |,R":.8,8,0,A$:.1|
00000A90: 35 2C 38 2C 31 35 00 B1  12 E2 D6 84 31 35 2C 4A  |5,8,15......15,J|
00000AA0: 24 2C 4B 24 2C 4C 24 2C  4D 24 3A A0 31 35 3A A0  |$,K$,L$,M$:.15:.|
00000AB0: 38 00 C0 12 EC D6 8B C5  28 4A 24 29 B2 30 A7 8E  |8.......(J$).0..|
00000AC0: 00 E8 12 F6 D6 99 22 93  11 11 11 11 1D 1D 1D 1D  |......".........|
00000AD0: 20 1C 46 49 4C 45 20 4E  4F 54 20 46 4F 55 4E 44  | .FILE NOT FOUND|
00000AE0: 20 45 52 52 4F 52 05 22  00 FE 12 00 D7 81 58 B2  | ERROR."......X.|
00000AF0: 31 A4 31 30 30 30 3A 82  58 3A 89 31 31 31 00 46  |1.1000:.X:.111.F|
00000B00: 13 60 EA 9F 31 2C 38 2C  31 35 2C 22 53 30 3A 57  |.`..1,8,15,"S0:W|
00000B10: 4F 52 44 46 4C 45 58 2D  31 35 32 35 22 3A A0 31  |ORDFLEX-1525":.1|
00000B20: 3A 94 22 57 4F 52 44 46  4C 45 58 2D 31 35 32 35  |:."WORDFLEX-1525|
00000B30: 22 2C 38 3A 95 22 57 4F  52 44 46 4C 45 58 2D 31  |",8:."WORDFLEX-1|
00000B40: 35 32 35 22 2C 38 00 00  00                       |525",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
1525WP.OBJ",8,1..._..A.1.A.2:.830,F("P")
:."DIRECTORY.EXE",8,1...D..A.2.A.3:."WIN
DOW.OBJ",8,1.$.O..5000:. ".SELECT GRAPHI
CS PACKAGE:".H.P.. ".1) FLEXIDRAW":.".2)
 DOODLE"...Q.GP.3:.".3) QUIT":.198,0:.".
WHICH ONE";GP:.(GP.1).(GP.2)..50000...R.
.49173,0:.GP.2..49173,255.N.X..5000:. ".
DO YOU WISH TO PRINT:"...Z.. ".1) ONE PI
CTURE"...}.. ".2) QUIT".%.~..198,0:. ".W
HICH ONE";K:. (K.1).(K.3).120.7.... K.2 
. 50000.^....5000:. ".PICTURE NAME ($=DI
R)";A$......A$."$". .".":.52480:.198,0:.
".HIT ANY KEY TO CONTINUE:"......A$."$".
.198,1:.198,0:.130.R...S.1:. 1000:.ER.1.
50...... 3000:.5000:.".THIS PICTURE IS"W
E.WS"TEXT LINES HIGH.".2. ..198,0:. "..F
ILE TO CREATE:";C$.Y.... ".PLEASE INSERT
 DESTINATION DISK...... 198,0:."HIT ANY 
KEY WHEN READY:":. 198,1:.198,0...... ".
.CREATING PRINTER FILE... "C$.P....15,8,
15,"S0:".C$:  15......1,8,2,C$.",S,W"...
... 49182,0...H.. 49152: 1:. 2000...M..E
R.1.50.F.R...11)"...MISSION COMPLETED!."
:. I.1.1200:.I.O.... 50.B.... LOAD PICTU
RE...... ".INSERT PICTURE DISK AND PRESS
 ANY KEY":. 198,0:. 198,1:..H.... "LOADI
NG... "A$" IN BUFFER #"S.S....55000.....
. C(A$).16 . A$.LEFT(A$,16).....FL.C(A$)
...... 49185,FL.8.... I.1 . FL:.49185.I,
F(J(A$,I,1)):. I.\....GP.2..49183,0:.491
84,108:.1060...... 49183,0:. 49184,32:. 
S.2 . . 49184,64...$.. 49155:.198,0.....
. GP..2 . 2000...8.. 49183,0:. 49184,32 
:. S.2 . . 49184,64...B.. 49170:. MOVE D
OODLE.(.P.ER.0:. 15,8,15:.15,A1,B$,C1,D1
: 15:. A1.20 . ..D.Z.. "..DISK ERROR.: "
;A1" "B$" "C1;D1:ER.1:.I.1.2000:.I:....
.. SELECT BITMAP WINDOW...B.. 49161. .L.
WS.0:WE.1:.198,0...V.. 49180,WS:.49181,W
E:.49158...... (B(56321).4).0 . 3200....
.. V$:. V$."_" . 3500...... V$."." . WS.
WS.1:.3070./.... V$."." . WS.WS.1:.3070.
F.... V$.G(13). . 3020.X.... WS.0 . WS.0
.L.... WS.24 . WS.24.X...WE.WS.1...... 3
030.....WS..((B(53268).55).8).1...... 30
70.J.... 49180,WS:.49181,WE:.49158...J..
 (B(56321).4).0 . 3700...T.. V$:. V$."_"
 . 4000...... V$."." . WE.WE.1:.3570.9..
.. V$."." . WE.WE.1:.3570.P.... V$.G(13)
. . 3020.H.... WE.WS.1 . WE.WS.1.|.... W
E.25 . WE.25...... 3500...T.WE..((B(5326
8).55).8).1...~.. 3570.L. .. EXIT FROM W
INDOW SELECT...... 49174,16:.49175,1:.GP
.2..49174,64...... 49176,WS.8:.49177,WE.
8.K.H.LR..(((WE.WS).8).7).7:.49178,LR:.4
9179,((WE.WS).8).LR._.R..198,0:.49164:..
..... G(142)"..   - PAPER CLIP PICTURE F
ILE CREATOR -".A.... ".PRINTER: COMMODOR
E 1525/MPS 801":....PC.8,8,0,"PP,P,R":.1
5,8,15:.15,J$,K$,L$,M$: 15: 8...ZC.E(J$)
.0.."PP",8.;.DC."............PLEASE INSE
RT INTEGRATOR DISK".Y.NC..11)"AND PRESS 
ANY KEY.".R.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......V.".
........ .FILE NOT FOUND ERROR."....W.X.
1.1000:.X:.111.F.`..1,8,15,"S0:WORDFLEX-
1525": 1:."WORDFLEX-1525",8:."WORDFLEX-1
525",8...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL