TRANSGRAPH
FILE INFORMATION
FILENAME(S): TRANSGRAPH
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:05:44
APPEARS ON: 4 disk(s)
FILE HASH
c9d327ceafc06f405fc3c2eb9ef73ba8c58a7f7180270b2f9d5df9e654a385f6
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LICHTPEN PROG | TRANSGRAPH | PRG | DuncanTwain | 23 | 1 | DOWNLOAD FILE |
| NR 50 | TRANSGRAPH | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
| C64 HULP 30 2 | TRANSGRAPH | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
| FLEXIDRAW 3 0 | TRANSGRAPH | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 01 00 8F 20 46 4C 45 58 49 44 52 41 |..$.... FLEXIDRA| 00000010: 57 20 4D 4F 44 45 4D 20 53 45 4E 44 2F 52 45 43 |W MODEM SEND/REC| 00000020: 45 49 56 45 00 3B 08 02 00 8F 20 32 34 20 46 45 |EIVE.;.... 24 FE| 00000030: 42 52 55 41 52 59 20 31 39 38 34 00 55 08 03 00 |BRUARY 1984.U...| 00000040: 8F 20 42 59 20 4D 49 43 48 41 45 4C 20 41 2E 20 |. BY MICHAEL A. | 00000050: 45 53 4B 49 4E 00 6D 08 04 00 8F 20 44 45 53 49 |ESKIN.m.... DESI| 00000060: 47 4E 20 54 45 43 48 4E 4F 4C 4F 47 59 00 7C 08 |GN TECHNOLOGY.|.| 00000070: 05 00 99 22 93 22 C7 28 31 34 32 29 00 A3 08 0A |...".".(142)....| 00000080: 00 8B 20 53 B2 30 20 A7 20 9F 20 35 2C 32 2C 33 |.. S.0 . . 5,2,3| 00000090: 2C C7 28 36 29 3A 53 B2 31 3A 9F 20 31 35 2C 38 |,.(6):S.1:. 15,8| 000000A0: 2C 31 35 00 E5 08 0F 00 8B 20 53 B2 31 20 A7 20 |,15...... S.1 . | 000000B0: 97 20 35 33 32 38 31 2C 30 3A 8D 20 31 30 30 30 |. 53281,0:. 1000| 000000C0: 30 3A 8F 20 53 45 54 55 50 20 53 43 52 45 45 4E |0:. SETUP SCREEN| 000000D0: 20 43 4F 4C 4F 52 20 41 4E 44 20 53 49 44 20 50 | COLOR AND SID P| 000000E0: 41 52 41 4D 53 00 21 09 14 00 8B 20 53 B2 31 20 |ARAMS.!.... S.1 | 000000F0: A7 20 53 B2 32 3A 93 20 22 53 45 4E 44 53 55 50 |. S.2:. "SENDSUP| 00000100: 2E 4F 42 4A 22 2C 38 2C 31 3A 8F 20 4C 4F 41 44 |.OBJ",8,1:. LOAD| 00000110: 20 53 55 50 50 4F 52 54 20 52 4F 55 54 49 4E 45 | SUPPORT ROUTINE| 00000120: 53 00 4F 09 1E 00 8B 20 53 B2 33 20 A7 20 31 30 |S.O.... S.3 . 10| 00000130: 34 35 20 3A 8F 20 50 49 43 54 55 52 45 20 46 49 |45 :. PICTURE FI| 00000140: 4C 45 20 4C 4F 41 44 45 44 2C 20 4A 55 4D 50 00 |LE LOADED, JUMP.| 00000150: 83 09 64 00 99 20 22 93 05 11 20 12 46 4C 45 58 |..d.. "... .FLEX| 00000160: 49 44 52 41 57 20 50 49 43 54 55 52 45 20 54 52 |IDRAW PICTURE TR| 00000170: 41 4E 53 4D 49 53 53 49 4F 4E 20 53 59 53 54 45 |ANSMISSION SYSTE| 00000180: 4D 92 22 00 90 09 6E 00 50 24 B2 22 12 20 92 22 |M."...n.P$.". ."| 00000190: 00 AB 09 78 00 99 20 22 11 11 20 44 4F 20 59 4F |...x.. ".. DO YO| 000001A0: 55 20 57 49 53 48 20 54 4F 3A 22 00 D3 09 82 00 |U WISH TO:".....| 000001B0: 99 20 22 11 20 54 52 41 4E 53 4D 49 54 20 41 20 |. ". TRANSMIT A | 000001C0: 50 49 43 54 55 52 45 20 46 49 4C 45 22 A3 33 30 |PICTURE FILE".30| 000001D0: 29 50 24 00 FA 09 8C 00 99 20 22 11 20 52 45 43 |)P$...... ". REC| 000001E0: 45 49 56 45 20 41 20 50 49 43 54 55 52 45 20 46 |EIVE A PICTURE F| 000001F0: 49 4C 45 22 A3 33 30 29 50 24 00 1C 0A 91 00 99 |ILE".30)P$......| 00000200: 20 22 11 20 46 4F 52 4D 41 54 20 41 20 4E 45 57 | ". FORMAT A NEW| 00000210: 20 44 49 53 4B 22 A3 33 30 29 50 24 00 31 0A 96 | DISK".30)P$.1..| 00000220: 00 99 20 22 11 20 51 55 49 54 22 A3 33 30 29 50 |.. ". QUIT".30)P| 00000230: 24 00 53 0A A0 00 8F 20 57 41 49 54 20 46 4F 52 |$.S.... WAIT FOR| 00000240: 20 50 45 4E 20 53 57 49 54 43 48 20 43 4C 4F 53 | PEN SWITCH CLOS| 00000250: 55 52 45 00 71 0A AA 00 8B 20 28 C2 28 35 36 33 |URE.q.... (.(563| 00000260: 32 31 29 20 AF 20 34 29 B3 B1 30 20 A7 20 31 37 |21) . 4)..0 . 17| 00000270: 30 00 94 0A AF 00 97 20 31 39 38 2C 30 3A 8F 20 |0...... 198,0:. | 00000280: 43 4C 45 41 52 20 4B 45 59 42 4F 41 52 44 20 51 |CLEAR KEYBOARD Q| 00000290: 55 45 55 45 00 B7 0A B4 00 8F 20 50 41 52 53 45 |UEUE...... PARSE| 000002A0: 20 43 4F 4D 4D 41 4E 44 20 42 41 53 45 44 20 4F | COMMAND BASED O| 000002B0: 4E 20 59 20 50 4F 53 00 D0 0A BE 00 59 B2 B5 28 |N Y POS.....Y..(| 000002C0: 28 C2 28 35 33 32 36 38 29 AB 35 31 29 AD 38 29 |(.(53268).51).8)| 000002D0: 00 F7 0A C8 00 8B 20 59 B3 B1 36 20 AF 20 59 B3 |...... Y..6 . Y.| 000002E0: B1 38 20 AF 20 59 B3 B1 31 30 20 AF 20 59 B3 B1 |.8 . Y..10 . Y..| 000002F0: 31 32 A7 20 31 37 30 00 21 0B D2 00 99 20 22 13 |12. 170.!.... ".| 00000300: 22 3B A3 33 30 29 3B 3A 81 20 49 B2 31 20 A4 20 |";.30);:. I.1 . | 00000310: 59 20 3A 99 22 11 22 3B 3A 82 3A 99 22 12 58 92 |Y :.".";:.:.".X.| 00000320: 22 00 46 0B DC 00 97 20 53 44 AA 31 2C 31 32 35 |".F.... SD.1,125| 00000330: 3A 8D 20 31 30 31 30 30 3A 8F 20 54 4F 4E 45 20 |:. 10100:. TONE | 00000340: 56 45 52 49 46 59 00 5D 0B E6 00 97 20 53 44 AA |VERIFY.].... SD.| 00000350: 31 2C 31 30 30 3A 8D 20 31 30 31 30 30 00 91 0B |1,100:. 10100...| 00000360: EB 00 8B 20 28 C2 28 35 36 33 32 31 29 20 AF 20 |... (.(56321) . | 00000370: 34 29 B2 30 20 A7 20 32 33 35 3A 8F 20 57 41 49 |4).0 . 235:. WAI| 00000380: 54 20 46 4F 52 20 50 45 4E 20 52 45 4C 45 41 53 |T FOR PEN RELEAS| 00000390: 45 00 AB 0B F0 00 8F 20 4E 4F 57 20 45 58 45 43 |E...... NOW EXEC| 000003A0: 55 54 45 20 43 4F 4D 4D 41 4E 44 00 D0 0B FA 00 |UTE COMMAND.....| 000003B0: 8B 20 59 B2 36 20 A7 20 31 30 30 30 20 3A 8F 20 |. Y.6 . 1000 :. | 000003C0: 54 52 41 4E 53 4D 49 54 20 50 49 43 54 55 52 45 |TRANSMIT PICTURE| 000003D0: 00 F4 0B 04 01 8B 20 59 B2 38 20 A7 20 34 30 30 |...... Y.8 . 400| 000003E0: 30 20 3A 8F 20 52 45 43 45 49 56 45 20 50 49 43 |0 :. RECEIVE PIC| 000003F0: 54 55 52 45 00 1C 0C 09 01 8B 20 59 B2 31 30 20 |TURE...... Y.10 | 00000400: A7 20 35 30 30 30 3A 8F 20 46 4F 52 4D 41 54 20 |. 5000:. FORMAT | 00000410: 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 00 39 0C 0E |DISK COMMAND.9..| 00000420: 01 A0 20 35 3A A0 20 31 35 20 20 3A 99 22 93 22 |.. 5:. 15 :."."| 00000430: 3A 90 3A 8F 20 45 58 49 54 00 3F 0C E8 03 8F 00 |:.:. EXIT.?.....| 00000440: 63 0C F2 03 8F 20 53 45 4E 44 20 50 49 43 54 55 |c.... SEND PICTU| 00000450: 52 45 20 44 4F 57 4E 20 52 53 2D 32 33 32 20 4C |RE DOWN RS-232 L| 00000460: 49 4E 45 00 69 0C FC 03 8F 00 89 0C 06 04 99 20 |INE.i.......... | 00000470: 22 93 11 20 20 49 4E 53 45 52 54 20 50 49 43 54 |".. INSERT PICT| 00000480: 55 52 45 20 44 49 53 4B 22 00 AA 0C 0B 04 85 20 |URE DISK"...... | 00000490: 22 20 20 11 46 49 4C 45 20 4E 41 4D 45 20 54 4F |" .FILE NAME TO| 000004A0: 20 53 45 4E 44 3A 22 3B 46 24 00 C7 0C 10 04 53 | SEND:";F$.....S| 000004B0: B2 33 3A 93 20 46 24 2C 38 2C 31 3A 8F 20 4C 4F |.3:. F$,8,1:. LO| 000004C0: 41 44 20 46 49 4C 45 00 FB 0C 15 04 8D 20 31 32 |AD FILE...... 12| 000004D0: 30 30 30 3A 8B 20 41 B1 32 30 20 A7 20 31 30 33 |000:. A.20 . 103| 000004E0: 30 3A 8F 20 52 45 41 44 20 44 49 53 4B 20 45 52 |0:. READ DISK ER| 000004F0: 52 4F 52 20 43 48 41 4E 4E 45 4C 00 1A 0D 16 04 |ROR CHANNEL.....| 00000500: 99 20 22 11 20 20 50 4C 45 41 53 45 20 43 48 45 |. ". PLEASE CHE| 00000510: 43 4B 20 54 48 41 54 3A 11 22 00 49 0D 17 04 99 |CK THAT:.".I....| 00000520: 20 22 20 20 4F 4E 45 20 4D 4F 44 45 4D 20 49 53 | " ONE MODEM IS| 00000530: 20 53 45 54 20 46 4F 52 20 12 4F 52 49 47 49 4E | SET FOR .ORIGIN| 00000540: 41 54 45 92 20 41 4E 44 22 00 74 0D 18 04 99 20 |ATE. AND".t.... | 00000550: 22 20 20 54 48 45 20 4F 54 48 45 52 20 4D 4F 44 |" THE OTHER MOD| 00000560: 45 4D 20 53 45 54 20 46 4F 52 20 12 41 4E 53 57 |EM SET FOR .ANSW| 00000570: 45 52 92 22 00 A7 0D 19 04 99 20 22 11 20 20 48 |ER."...... ". H| 00000580: 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 |IT ANY KEY WHEN | 00000590: 52 45 41 44 59 3A 22 3A 97 20 31 39 38 2C 30 3A |READY:":. 198,0:| 000005A0: 92 20 31 39 38 2C 31 00 D6 0D 1A 04 99 20 22 11 |. 198,1...... ".| 000005B0: 11 20 20 4E 4F 57 2C 20 49 4E 46 4F 52 4D 20 52 |. NOW, INFORM R| 000005C0: 45 43 45 49 56 45 52 20 54 48 41 54 20 59 4F 55 |ECEIVER THAT YOU| 000005D0: 20 41 52 45 20 22 00 04 0E 1B 04 99 20 22 20 20 | ARE "...... " | 000005E0: 52 45 41 44 59 20 54 4F 20 53 45 4E 44 2E 20 57 |READY TO SEND. W| 000005F0: 41 49 54 20 46 4F 52 20 52 45 43 45 49 56 45 52 |AIT FOR RECEIVER| 00000600: 20 54 4F 22 00 2E 0E 1C 04 99 20 22 20 20 53 45 | TO"...... " SE| 00000610: 54 20 48 49 53 20 53 59 53 54 45 4D 20 54 4F 20 |T HIS SYSTEM TO | 00000620: 52 45 43 45 49 56 45 2C 20 54 48 45 4E 22 00 5B |RECEIVE, THEN".[| 00000630: 0E 1D 04 99 20 22 20 20 41 54 54 41 43 48 20 54 |.... " ATTACH T| 00000640: 48 45 20 4D 4F 44 45 4D 20 54 4F 20 54 48 45 20 |HE MODEM TO THE | 00000650: 50 48 4F 4E 45 20 4C 49 4E 45 22 00 86 0E 22 04 |PHONE LINE"...".| 00000660: 99 20 22 11 20 20 48 49 54 20 41 4E 59 20 4B 45 |. ". HIT ANY KE| 00000670: 59 20 57 48 45 4E 20 52 45 41 44 59 20 54 4F 20 |Y WHEN READY TO | 00000680: 53 45 4E 44 3A 22 00 9A 0E 24 04 97 20 31 39 38 |SEND:"...$.. 198| 00000690: 2C 30 3A 92 20 31 39 38 2C 31 00 B9 0E 2E 04 8D |,0:. 198,1......| 000006A0: 20 36 30 30 30 3A 8F 20 53 45 54 55 50 20 42 49 | 6000:. SETUP BI| 000006B0: 54 4D 41 50 20 4D 4F 44 45 00 E3 0E 33 04 97 20 |TMAP MODE...3.. | 000006C0: 35 33 32 38 30 2C 32 20 3A 8F 20 52 45 44 20 42 |53280,2 :. RED B| 000006D0: 4F 52 44 45 52 20 57 48 49 4C 45 20 53 45 4E 44 |ORDER WHILE SEND| 000006E0: 49 4E 47 00 0D 0F 38 04 8F 20 49 4E 44 49 43 41 |ING...8.. INDICA| 000006F0: 54 45 20 50 52 4F 47 52 45 53 53 20 42 59 20 43 |TE PROGRESS BY C| 00000700: 48 41 4E 47 49 4E 47 20 43 4F 4C 4F 52 00 42 0F |HANGING COLOR.B.| 00000710: 3D 04 98 35 2C C7 28 32 35 35 29 3B 3A 8F 20 53 |=..5,.(255);:. S| 00000720: 45 4E 44 20 49 4E 49 54 49 41 4C 20 43 48 41 52 |END INITIAL CHAR| 00000730: 20 54 4F 20 45 53 54 41 42 4C 49 53 48 20 4C 49 | TO ESTABLISH LI| 00000740: 4E 4B 00 5E 0F 42 04 81 20 49 B2 30 20 A4 20 32 |NK.^.B.. I.0 . 2| 00000750: 34 20 20 3A 8F 20 32 35 20 4C 49 4E 45 53 00 8C |4 :. 25 LINES..| 00000760: 0F 4C 04 81 20 4A B2 30 20 A4 20 32 37 31 20 3A |.L.. J.0 . 271 :| 00000770: 8F 20 53 45 4E 44 20 4F 4E 4C 59 20 50 49 43 54 |. SEND ONLY PICT| 00000780: 55 52 45 20 4E 4F 54 20 4D 45 4E 55 00 9B 0F 56 |URE NOT MENU...V| 00000790: 04 4B 25 B2 33 32 30 AC 49 AA 4A 00 C1 0F 60 04 |.K%.320.I.J...`.| 000007A0: 42 25 B2 C2 28 38 31 39 32 AA 4B 25 29 3A 8F 20 |B%..(8192.K%):. | 000007B0: 49 46 20 4A 3E 32 37 31 20 54 48 45 4E 20 42 3D |IF J>271 THEN B=| 000007C0: 30 00 DD 0F 6A 04 98 35 2C C7 28 42 25 29 3B 3A |0...j..5,.(B%);:| 000007D0: 8F 20 53 45 4E 44 20 41 20 42 59 54 45 00 08 10 |. SEND A BYTE...| 000007E0: 74 04 97 20 31 30 32 34 AA B5 28 4B 25 AD 38 29 |t.. 1024..(K%.8)| 000007F0: 2C 32 30 37 3A 8F 20 49 4E 44 49 43 41 54 45 20 |,207:. INDICATE | 00000800: 50 52 4F 47 52 45 53 53 00 26 10 79 04 81 20 44 |PROGRESS.&.y.. D| 00000810: 4C B2 31 20 A4 20 31 30 3A 82 20 44 4C 20 3A 8F |L.1 . 10:. DL :.| 00000820: 20 44 45 4C 41 59 00 2E 10 7E 04 82 20 4A 00 36 | DELAY...~.. J.6| 00000830: 10 88 04 82 20 49 00 44 10 92 04 97 20 35 33 32 |.... I.D.... 532| 00000840: 38 30 2C 36 00 5C 10 9C 04 8F 20 54 52 41 4E 53 |80,6.\.... TRANS| 00000850: 4D 49 54 20 46 49 4E 49 53 48 45 44 00 94 10 A6 |MIT FINISHED....| 00000860: 04 97 20 53 44 AA 31 2C 31 32 35 3A 8D 20 31 30 |.. SD.1,125:. 10| 00000870: 31 30 30 3A 8D 20 31 30 31 30 30 3A 8D 20 31 30 |100:. 10100:. 10| 00000880: 31 30 30 3A 8F 20 45 4E 44 20 4F 46 20 50 49 43 |100:. END OF PIC| 00000890: 54 55 52 45 00 AE 10 B0 04 8D 20 37 30 30 30 20 |TURE...... 7000 | 000008A0: 3A 8F 20 45 58 49 54 20 42 49 54 4D 41 50 00 C4 |:. EXIT BITMAP..| 000008B0: 10 BA 04 89 20 31 30 30 3A 8F 20 4E 45 58 54 20 |.... 100:. NEXT | 000008C0: 46 49 4C 45 00 CA 10 A0 0F 8F 00 E0 10 AA 0F 8F |FILE............| 000008D0: 20 50 49 43 54 55 52 45 20 52 45 43 45 49 56 45 | PICTURE RECEIVE| 000008E0: 00 E6 10 B4 0F 8F 00 06 11 B9 0F 99 20 22 93 11 |............ "..| 000008F0: 20 20 50 4C 45 41 53 45 20 43 48 45 43 4B 20 54 | PLEASE CHECK T| 00000900: 48 41 54 3A 11 22 00 35 11 BA 0F 99 20 22 20 20 |HAT:.".5.... " | 00000910: 4F 4E 45 20 4D 4F 44 45 4D 20 49 53 20 53 45 54 |ONE MODEM IS SET| 00000920: 20 46 4F 52 20 12 4F 52 49 47 49 4E 41 54 45 92 | FOR .ORIGINATE.| 00000930: 20 41 4E 44 22 00 60 11 BB 0F 99 20 22 20 20 54 | AND".`.... " T| 00000940: 48 45 20 4F 54 48 45 52 20 4D 4F 44 45 4D 20 53 |HE OTHER MODEM S| 00000950: 45 54 20 46 4F 52 20 12 41 4E 53 57 45 52 92 22 |ET FOR .ANSWER."| 00000960: 00 93 11 BC 0F 99 20 22 11 20 20 48 49 54 20 41 |...... ". HIT A| 00000970: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ| 00000980: 59 3A 22 3A 97 20 31 39 38 2C 30 3A 92 20 31 39 |Y:":. 198,0:. 19| 00000990: 38 2C 31 00 C0 11 BD 0F 99 20 22 11 11 20 20 4E |8,1...... ".. N| 000009A0: 4F 57 2C 20 49 4E 46 4F 52 4D 20 53 45 4E 44 45 |OW, INFORM SENDE| 000009B0: 52 20 54 48 41 54 20 59 4F 55 20 41 52 45 20 22 |R THAT YOU ARE "| 000009C0: 00 EC 11 BE 0F 99 20 22 20 20 52 45 41 44 59 20 |...... " READY | 000009D0: 54 4F 20 52 45 43 45 49 56 45 2C 20 54 48 45 4E |TO RECEIVE, THEN| 000009E0: 20 41 54 54 41 43 48 20 54 48 45 22 00 0F 12 BF | ATTACH THE"....| 000009F0: 0F 99 20 22 20 20 4D 4F 44 45 4D 20 54 4F 20 54 |.. " MODEM TO T| 00000A00: 48 45 20 50 48 4F 4E 45 20 4C 49 4E 45 2E 22 00 |HE PHONE LINE.".| 00000A10: 3C 12 C3 0F 99 20 22 11 20 20 48 49 54 20 41 4E |<.... ". HIT AN| 00000A20: 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 |Y KEY WHEN READY| 00000A30: 20 54 4F 20 52 45 43 45 49 56 45 22 00 50 12 C8 | TO RECEIVE".P..| 00000A40: 0F 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 |.. 198,0:. 198,1| 00000A50: 00 6C 12 CD 0F 9E 20 34 39 31 35 32 20 3A 8F 20 |.l.... 49152 :. | 00000A60: 43 4C 45 41 52 20 53 43 52 45 45 4E 00 87 12 D2 |CLEAR SCREEN....| 00000A70: 0F 8D 20 36 30 30 30 20 3A 8F 20 53 45 54 55 50 |.. 6000 :. SETUP| 00000A80: 20 42 49 54 4D 41 50 00 BE 12 D7 0F A1 23 35 2C | BITMAP......#5,| 00000A90: 41 24 3A 53 53 B2 53 54 3A 8B 20 53 53 B3 B1 30 |A$:SS.ST:. SS..0| 00000AA0: A7 20 34 30 35 35 3A 8F 20 57 41 49 54 20 46 4F |. 4055:. WAIT FO| 00000AB0: 52 20 49 4E 49 54 49 41 4C 20 43 48 41 52 00 DA |R INITIAL CHAR..| 00000AC0: 12 DC 0F 81 20 49 B2 30 20 A4 20 32 34 20 20 3A |.... I.0 . 24 :| 00000AD0: 8F 20 32 35 20 4C 49 4E 45 53 00 08 13 E6 0F 81 |. 25 LINES......| 00000AE0: 20 4A B2 30 20 A4 20 32 37 31 20 3A 8F 20 53 45 | J.0 . 271 :. SE| 00000AF0: 4E 44 20 4F 4E 4C 59 20 50 49 43 54 55 52 45 20 |ND ONLY PICTURE | 00000B00: 4E 4F 54 20 4D 45 4E 55 00 17 13 F0 0F 4B 25 B2 |NOT MENU.....K%.| 00000B10: 33 32 30 AC 49 AA 4A 00 2F 13 FA 0F A1 23 35 2C |320.I.J./....#5,| 00000B20: 42 24 3A 8F 20 47 45 54 20 41 20 42 59 54 45 00 |B$:. GET A BYTE.| 00000B30: 56 13 FF 0F 53 53 B2 53 54 3A 8B 20 53 53 B2 38 |V...SS.ST:. SS.8| 00000B40: 20 A7 20 34 30 39 30 3A 8F 20 42 55 46 46 45 52 | . 4090:. BUFFER| 00000B50: 20 45 4D 50 54 59 00 7A 13 00 10 8B 20 53 53 B3 | EMPTY.z.... SS.| 00000B60: B1 30 20 A7 20 34 35 30 30 3A 8F 20 45 52 52 4F |.0 . 4500:. ERRO| 00000B70: 52 20 44 45 54 45 43 54 45 44 00 97 13 04 10 42 |R DETECTED.....B| 00000B80: 25 B2 30 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 42 |%.0:. B$.."" . B| 00000B90: 25 B2 C6 28 42 24 29 00 B4 13 09 10 97 20 38 31 |%..(B$)...... 81| 00000BA0: 39 32 AA 4B 25 2C 42 25 3A 8F 20 4C 4F 41 44 20 |92.K%,B%:. LOAD | 00000BB0: 44 41 54 41 00 DF 13 0E 10 97 20 31 30 32 34 AA |DATA...... 1024.| 00000BC0: B5 28 4B 25 AD 38 29 2C 32 30 37 3A 8F 20 49 4E |.(K%.8),207:. IN| 00000BD0: 44 49 43 41 54 45 20 50 52 4F 47 52 45 53 53 00 |DICATE PROGRESS.| 00000BE0: E7 13 18 10 82 20 4A 00 EF 13 22 10 82 20 49 00 |..... J...".. I.| 00000BF0: FD 13 2C 10 97 20 35 33 32 38 30 2C 36 00 14 14 |..,.. 53280,6...| 00000C00: 36 10 8F 20 52 45 43 45 49 56 45 20 46 49 4E 49 |6.. RECEIVE FINI| 00000C10: 53 48 45 44 00 4C 14 40 10 97 20 53 44 AA 31 2C |SHED.L.@.. SD.1,| 00000C20: 31 32 35 3A 8D 20 31 30 31 30 30 3A 8D 20 31 30 |125:. 10100:. 10| 00000C30: 31 30 30 3A 8D 20 31 30 31 30 30 3A 8F 20 45 4E |100:. 10100:. EN| 00000C40: 44 20 4F 46 20 50 49 43 54 55 52 45 00 7E 14 4A |D OF PICTURE.~.J| 00000C50: 10 8D 20 37 30 30 30 3A 99 20 22 93 11 20 20 20 |.. 7000:. ".. | 00000C60: 2A 2A 2A 20 4E 4F 20 45 52 52 4F 52 53 20 44 45 |*** NO ERRORS DE| 00000C70: 54 45 43 54 45 44 21 21 21 20 2A 2A 2A 22 00 A1 |TECTED!!! ***"..| 00000C80: 14 4F 10 97 20 31 39 38 2C 30 3A 8F 20 43 4C 45 |.O.. 198,0:. CLE| 00000C90: 41 52 20 4B 45 59 42 4F 41 52 44 20 51 55 45 55 |AR KEYBOARD QUEU| 00000CA0: 45 00 C1 14 54 10 99 20 22 11 11 20 20 46 49 4C |E...T.. ".. FIL| 00000CB0: 45 20 4E 41 4D 45 20 46 4F 52 20 53 41 56 45 3A |E NAME FOR SAVE:| 00000CC0: 22 00 E5 14 5E 10 85 20 22 20 12 3C 52 45 54 55 |"...^.. " .<RETU| 00000CD0: 52 4E 3E 92 20 49 46 20 4E 4F 20 53 41 56 45 3A |RN>. IF NO SAVE:| 00000CE0: 22 3B 44 4E 24 00 01 15 68 10 4E 43 B2 C3 28 44 |";DN$...h.NC..(D| 00000CF0: 4E 24 29 3A 8B 20 4E 43 B2 30 20 A7 20 34 37 30 |N$):. NC.0 . 470| 00000D00: 30 00 15 15 6A 10 8B 20 4E 43 B1 31 36 20 A7 20 |0...j.. NC.16 . | 00000D10: 4E 43 B2 31 36 00 34 15 6D 10 8F 20 53 45 54 55 |NC.16.4.m.. SETU| 00000D20: 50 20 46 49 4C 45 20 4E 41 4D 45 20 46 4F 52 20 |P FILE NAME FOR | 00000D30: 53 41 56 45 00 6A 15 72 10 81 20 49 B2 31 20 A4 |SAVE.j.r.. I.1 .| 00000D40: 20 4E 43 3A 97 20 34 39 31 36 34 AA 49 2C C6 28 | NC:. 49164.I,.(| 00000D50: CA 28 44 4E 24 2C 49 2C 31 29 29 3A 82 3A 97 20 |.(DN$,I,1)):.:. | 00000D60: 34 39 31 36 31 2C 4E 43 AA 33 00 86 15 7C 10 9E |49161,NC.3...|..| 00000D70: 20 34 39 31 35 38 20 3A 8F 20 53 41 56 45 20 50 | 49158 :. SAVE P| 00000D80: 49 43 54 55 52 45 00 A7 15 86 10 8D 20 31 32 30 |ICTURE...... 120| 00000D90: 30 30 3A 8F 20 52 45 41 44 20 45 52 52 4F 52 20 |00:. READ ERROR | 00000DA0: 43 48 41 4E 4E 45 4C 00 CB 15 90 10 8B 20 41 B1 |CHANNEL...... A.| 00000DB0: 32 30 20 A7 20 34 31 38 30 3A 8F 20 49 46 20 45 |20 . 4180:. IF E| 00000DC0: 52 52 4F 52 2C 20 52 45 54 52 59 00 08 16 1C 11 |RROR, RETRY.....| 00000DD0: 99 20 22 11 11 11 20 20 20 48 49 54 20 41 4E 59 |. "... HIT ANY| 00000DE0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE| 00000DF0: 3A 22 3A 97 20 31 39 38 2C 30 3A 92 20 31 39 38 |:":. 198,0:. 198| 00000E00: 2C 31 3A 89 20 31 30 30 00 2A 16 94 11 8F 20 43 |,1:. 100.*.... C| 00000E10: 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 20 45 52 52 |OMMUNICATION ERR| 00000E20: 4F 52 20 52 4F 55 54 49 4E 45 00 53 16 9E 11 97 |OR ROUTINE.S....| 00000E30: 20 35 33 32 38 30 2C 36 3A 8D 20 37 30 30 30 3A | 53280,6:. 7000:| 00000E40: 8F 20 43 4C 45 41 52 20 42 49 54 4D 41 50 20 4D |. CLEAR BITMAP M| 00000E50: 4F 44 45 00 85 16 A8 11 99 22 93 11 11 20 2A 2A |ODE......"... **| 00000E60: 2A 20 45 52 52 4F 52 20 44 45 54 45 43 54 45 44 |* ERROR DETECTED| 00000E70: 20 49 4E 20 54 52 41 4E 53 4D 49 53 53 49 4F 4E | IN TRANSMISSION| 00000E80: 20 2A 2A 2A 22 00 9F 16 B2 11 97 20 31 39 38 2C | ***"...... 198,| 00000E90: 30 3A 92 20 31 39 38 2C 31 3A 89 20 31 30 30 00 |0:. 198,1:. 100.| 00000EA0: BA 16 5C 12 8F 20 4E 4F 20 46 49 4C 45 20 4E 41 |..\.. NO FILE NA| 00000EB0: 4D 45 20 52 4F 55 54 49 4E 45 00 E6 16 66 12 99 |ME ROUTINE...f..| 00000EC0: 20 22 11 20 2D 20 12 50 49 43 54 55 52 45 20 49 | ". - .PICTURE I| 00000ED0: 53 20 49 4E 20 4D 45 4D 4F 52 59 20 41 54 20 24 |S IN MEMORY AT $| 00000EE0: 32 30 30 30 92 22 00 16 17 70 12 99 20 22 11 20 |2000."...p.. ". | 00000EF0: 2D 20 12 45 58 49 54 20 41 4E 44 20 52 55 4E 20 |- .EXIT AND RUN | 00000F00: 46 4C 45 58 49 44 52 41 57 20 54 4F 20 43 41 50 |FLEXIDRAW TO CAP| 00000F10: 54 55 52 45 92 22 00 21 17 7A 12 89 20 34 33 38 |TURE.".!.z.. 438| 00000F20: 30 00 27 17 88 13 8F 00 3F 17 92 13 8F 20 46 4F |0.'.....?.... FO| 00000F30: 52 4D 41 54 20 41 20 4E 45 57 20 44 49 53 4B 00 |RMAT A NEW DISK.| 00000F40: 45 17 9C 13 8F 00 70 17 A6 13 99 20 22 93 11 20 |E.....p.... ".. | 00000F50: 20 20 20 20 2A 2A 2A 20 46 4F 52 4D 41 54 20 44 | *** FORMAT D| 00000F60: 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 2A 2A 2A 22 |ISK COMMAND ***"| 00000F70: 00 9C 17 B0 13 85 20 22 11 11 20 4E 45 57 20 44 |...... ".. NEW D| 00000F80: 49 53 4B 20 4E 41 4D 45 3A 22 3B 44 4E 24 3A 44 |ISK NAME:";DN$:D| 00000F90: 4E 24 B2 C9 28 44 4E 24 2C 31 36 29 00 C6 17 BA |N$..(DN$,16)....| 00000FA0: 13 85 20 22 11 20 20 20 20 20 20 20 44 49 53 4B |.. ". DISK| 00000FB0: 20 49 44 3A 22 3B 44 49 24 3A 44 49 24 B2 C9 28 | ID:";DI$:DI$..(| 00000FC0: 44 49 24 2C 32 29 00 E3 17 C4 13 85 20 22 11 11 |DI$,2)...... "..| 00000FD0: 20 20 20 41 52 45 20 59 4F 55 20 53 55 52 45 22 | ARE YOU SURE"| 00000FE0: 3B 53 24 00 F7 17 CE 13 8B 20 53 24 B3 B1 22 59 |;S$...... S$.."Y| 00000FF0: 22 20 A7 20 31 30 30 00 24 18 D3 13 99 20 22 11 |" . 100.$.... ".| 00001000: 20 12 46 4F 52 4D 41 54 54 49 4E 47 20 4E 45 57 | .FORMATTING NEW| 00001010: 20 44 49 53 4B 3A 20 22 44 4E 24 22 2C 22 44 49 | DISK: "DN$","DI| 00001020: 24 22 92 22 00 3B 18 D8 13 98 31 35 2C 22 4E 30 |$".".;....15,"N0| 00001030: 3A 22 44 4E 24 22 2C 22 44 49 24 00 5C 18 E2 13 |:"DN$","DI$.\...| 00001040: 8D 20 31 32 30 30 30 3A 8F 20 52 45 41 44 20 45 |. 12000:. READ E| 00001050: 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 85 18 EC |RROR CHANNEL....| 00001060: 13 99 22 11 11 20 20 20 20 20 20 2A 2A 2A 20 46 |..".. *** F| 00001070: 55 4E 43 54 49 4F 4E 20 43 4F 4D 50 4C 45 54 45 |UNCTION COMPLETE| 00001080: 20 2A 2A 2A 22 00 AF 18 F6 13 99 22 11 11 20 20 | ***"......".. | 00001090: 20 20 20 20 20 12 48 49 54 20 41 4E 59 20 4B 45 | .HIT ANY KE| 000010A0: 59 20 57 48 45 4E 20 52 45 41 44 59 3A 92 22 00 |Y WHEN READY:.".| 000010B0: C9 18 00 14 97 20 31 39 38 2C 30 3A 92 20 31 39 |..... 198,0:. 19| 000010C0: 38 2C 31 3A 89 20 31 30 30 00 CF 18 70 17 8F 00 |8,1:. 100...p...| 000010D0: E7 18 7A 17 8F 20 53 45 54 55 50 20 42 49 54 4D |..z.. SETUP BITM| 000010E0: 41 50 20 4D 4F 44 45 00 ED 18 84 17 8F 00 08 19 |AP MODE.........| 000010F0: 8E 17 97 20 35 33 32 36 35 2C C2 28 35 33 32 36 |... 53265,.(5326| 00001100: 35 29 20 AF 20 32 33 39 00 28 19 98 17 9E 20 34 |5) . 239.(.... 4| 00001110: 39 31 35 35 2C 30 2C 31 20 3A 8F 20 53 45 54 55 |9155,0,1 :. SETU| 00001120: 50 20 43 4F 4C 4F 52 53 00 41 19 A2 17 97 20 35 |P COLORS.A.... 5| 00001130: 33 32 37 32 2C C2 28 35 33 32 37 32 29 20 B0 20 |3272,.(53272) . | 00001140: 38 00 5B 19 AC 17 97 20 35 33 32 36 35 2C C2 28 |8.[.... 53265,.(| 00001150: 35 33 32 36 35 29 20 B0 20 33 32 00 82 19 B6 17 |53265) . 32.....| 00001160: 97 20 36 34 38 2C 33 32 20 3A 8F 20 50 4F 49 4E |. 648,32 :. POIN| 00001170: 54 20 4B 45 52 4E 41 4C 20 54 4F 20 53 43 52 45 |T KERNAL TO SCRE| 00001180: 45 4E 00 9C 19 C0 17 97 20 35 33 32 36 35 2C C2 |EN...... 53265,.| 00001190: 28 35 33 32 36 35 29 20 B0 20 31 36 00 A2 19 CA |(53265) . 16....| 000011A0: 17 8E 00 A8 19 58 1B 8F 00 C4 19 62 1B 8F 20 45 |.....X.....b.. E| 000011B0: 58 49 54 20 46 52 4F 4D 20 42 49 54 4D 41 50 20 |XIT FROM BITMAP | 000011C0: 4D 4F 44 45 00 CA 19 6C 1B 8F 00 E5 19 76 1B 97 |MODE...l.....v..| 000011D0: 20 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 20 | 53265,.(53265) | 000011E0: AF 20 32 33 39 00 02 1A 80 1B 97 20 35 33 32 37 |. 239...... 5327| 000011F0: 32 2C 28 C2 28 35 33 32 37 32 29 AF 32 34 30 29 |2,(.(53272).240)| 00001200: B0 34 00 1B 1A 8A 1B 97 20 35 33 32 36 35 2C C2 |.4...... 53265,.| 00001210: 28 35 33 32 36 35 29 AF 32 32 33 00 27 1A 94 1B |(53265).223.'...| 00001220: 97 20 36 34 38 2C 34 00 3F 1A 9E 1B 97 20 35 33 |. 648,4.?.... 53| 00001230: 32 36 35 2C C2 28 35 33 32 36 35 29 B0 31 36 00 |265,.(53265).16.| 00001240: 45 1A A8 1B 8E 00 5C 1A 10 27 8F 20 53 45 54 55 |E.....\..'. SETU| 00001250: 50 20 53 49 44 20 50 41 52 41 4D 53 00 69 1A 1A |P SID PARAMS.i..| 00001260: 27 53 44 B2 35 34 32 37 32 00 85 1A 24 27 81 20 |'SD.54272...$'. | 00001270: 49 B2 53 44 20 A4 20 53 44 AA 32 34 3A 97 20 49 |I.SD . SD.24:. I| 00001280: 2C 30 3A 82 49 00 A9 1A 2E 27 97 20 53 44 AA 35 |,0:.I....'. SD.5| 00001290: 2C 31 35 3A 97 20 53 44 AA 36 2C 32 34 30 3A 97 |,15:. SD.6,240:.| 000012A0: 20 53 44 AA 32 34 2C 31 35 00 AF 1A 38 27 8E 00 | SD.24,15...8'..| 000012B0: B5 1A 74 27 8F 00 C6 1A 7E 27 8F 20 53 4F 55 4E |..t'....~'. SOUN| 000012C0: 44 20 54 4F 4E 45 00 CC 1A 88 27 8F 00 E9 1A 92 |D TONE....'.....| 000012D0: 27 97 20 53 44 AA 34 2C 31 37 3A 81 20 49 B2 31 |'. SD.4,17:. I.1| 000012E0: 20 A4 20 33 30 3A 82 20 49 00 06 1B 9C 27 97 20 | . 30:. I....'. | 000012F0: 53 44 AA 34 2C 31 36 3A 81 20 49 B2 31 20 A4 20 |SD.4,16:. I.1 . | 00001300: 34 30 3A 82 20 49 00 13 1B A6 27 97 20 53 44 AA |40:. I....'. SD.| 00001310: 34 2C 38 00 19 1B B0 27 8E 00 1F 1B E0 2E 8F 00 |4,8....'........| 00001320: 3D 1B EA 2E 8F 20 52 45 41 44 20 44 49 53 4B 20 |=.... READ DISK | 00001330: 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 43 1B |ERROR CHANNEL.C.| 00001340: F4 2E 8F 00 54 1B FE 2E 84 31 35 2C 41 2C 42 24 |....T....15,A,B$| 00001350: 2C 43 2C 44 00 64 1B 03 2F 8B 20 41 B3 B2 32 30 |,C,D.d../. A..20| 00001360: 20 A7 20 8E 00 77 1B 08 2F 99 22 11 20 20 22 41 | . ..w../.". "A| 00001370: 2C 42 24 2C 43 2C 44 00 9E 1B 12 2F 99 20 22 11 |,B$,C,D..../. ".| 00001380: 20 20 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 | *** DISK ERROR| 00001390: 20 44 45 54 45 43 54 45 44 20 2A 2A 2A 22 00 D2 | DETECTED ***"..| 000013A0: 1B 1C 2F 99 20 22 11 20 20 48 49 54 20 41 4E 59 |../. ". HIT ANY| 000013B0: 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 22 | KEY WHEN READY"| 000013C0: 3A 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 |:. 198,0:. 198,1| 000013D0: 3A 8E 00 00 00 |:.... |
..$.... FLEXIDRAW MODEM SEND/RECEIVE.;..
.. 24 FEBRUARY 1984.U.... BY MICHAEL A.
ESKIN.M.... DESIGN TECHNOLOGY.|...."."G(
142)...... S.0 . . 5,2,3,G(6):S.1:. 15,8
,15...... S.1 . . 53281,0:. 10000:. SETU
P SCREEN COLOR AND SID PARAMS.!.... S.1
. S.2:. "SENDSUP.OBJ",8,1:. LOAD SUPPORT
ROUTINES.O.... S.3 . 1045 :. PICTURE FI
LE LOADED, JUMP...D.. "... .FLEXIDRAW PI
CTURE TRANSMISSION SYSTEM."...N.P$.". ."
...X.. ".. DO YOU WISH TO:".S.... ". TRA
NSMIT A PICTURE FILE".30)P$...... ". REC
EIVE A PICTURE FILE".30)P$...... ". FORM
AT A NEW DISK".30)P$.1.... ". QUIT".30)P
$.S. .. WAIT FOR PEN SWITCH CLOSURE.Q...
. (B(56321) . 4)..0 . 170...... 198,0:.
CLEAR KEYBOARD QUEUE...... PARSE COMMAND
BASED ON Y POS.P...Y..((B(53268).51).8)
...H.. Y..6 . Y..8 . Y..10 . Y..12. 170.
!.R.. ".";.30);:. I.1 . Y :.".";:.:.".X.
".F.... SD.1,125:. 10100:. TONE VERIFY.]
.... SD.1,100:. 10100...... (B(56321) .
4).0 . 235:. WAIT FOR PEN RELEASE......
NOW EXECUTE COMMAND.P.... Y.6 . 1000 :.
TRANSMIT PICTURE...... Y.8 . 4000 :. REC
EIVE PICTURE...... Y.10 . 5000:. FORMAT
DISK COMMAND.9... 5: 15 :.".":.:. EXI
T.?.....C.... SEND PICTURE DOWN RS-232 L
INE.I.......... ".. INSERT PICTURE DISK
"...... " .FILE NAME TO SEND:";F$.G...S
.3:. F$,8,1:. LOAD FILE...... 12000:. A.
20 . 1030:. READ DISK ERROR CHANNEL.....
. ". PLEASE CHECK THAT:.".I.... " ONE
MODEM IS SET FOR .ORIGINATE. AND".T....
" THE OTHER MODEM SET FOR .ANSWER."....
.. ". HIT ANY KEY WHEN READY:":. 198,0:
. 198,1.V.... ".. NOW, INFORM RECEIVER
THAT YOU ARE "...... " READY TO SEND. W
AIT FOR RECEIVER TO"...... " SET HIS SY
STEM TO RECEIVE, THEN".[.... " ATTACH T
HE MODEM TO THE PHONE LINE"...".. ". HI
T ANY KEY WHEN READY TO SEND:"...$.. 198
,0:. 198,1...... 6000:. SETUP BITMAP MOD
E...3.. 53280,2 :. RED BORDER WHILE SEND
ING...8.. INDICATE PROGRESS BY CHANGING
COLOR.B.=..5,G(255);:. SEND INITIAL CHAR
TO ESTABLISH LINK.^.B.. I.0 . 24 :. 25
LINES...L.. J.0 . 271 :. SEND ONLY PICT
URE NOT MENU...V.K%.320.I.J.A.`.B%.B(819
2.K%):. IF J>271 THEN B=0...J..5,G(B%);:
. SEND A BYTE...T.. 1024..(K%.8),207:. I
NDICATE PROGRESS.&.Y.. DL.1 . 10:. DL :.
DELAY...~.. J.6.... I.D.... 53280,6.\..
.. TRANSMIT FINISHED...... SD.1,125:. 10
100:. 10100:. 10100:. END OF PICTURE....
.. 7000 :. EXIT BITMAP.D.... 100:. NEXT
FILE.J. ........ PICTURE RECEIVE........
.... ".. PLEASE CHECK THAT:.".5.... "
ONE MODEM IS SET FOR .ORIGINATE. AND".`.
... " THE OTHER MODEM SET FOR .ANSWER."
...... ". HIT ANY KEY WHEN READY:":. 19
8,0:. 198,1...... ".. NOW, INFORM SENDE
R THAT YOU ARE "...... " READY TO RECEI
VE, THEN ATTACH THE"...... " MODEM TO T
HE PHONE LINE.".<.C.. ". HIT ANY KEY WH
EN READY TO RECEIVE".P.H.. 198,0:. 198,1
.L.M.. 49152 :. CLEAR SCREEN...R.. 6000
:. SETUP BITMAP...W..#5,A$:SS.ST:. SS..0
. 4055:. WAIT FOR INITIAL CHAR.Z.... I.0
. 24 :. 25 LINES...... J.0 . 271 :. SE
ND ONLY PICTURE NOT MENU.....K%.320.I.J.
/....#5,B$:. GET A BYTE.V...SS.ST:. SS.8
. 4090:. BUFFER EMPTY.Z.... SS..0 . 450
0:. ERROR DETECTED.....B%.0:. B$.."" . B
%.F(B$)...... 8192.K%,B%:. LOAD DATA....
.. 1024..(K%.8),207:. INDICATE PROGRESS.
..... J...".. I...,.. 53280,6...6.. RECE
IVE FINISHED.L.@.. SD.1,125:. 10100:. 10
100:. 10100:. END OF PICTURE.~.J.. 7000:
. ".. *** NO ERRORS DETECTED!!! ***"..
.O.. 198,0:. CLEAR KEYBOARD QUEUE.A.T..
".. FILE NAME FOR SAVE:"...^.. " .<RETU
RN>. IF NO SAVE:";DN$...H.NC.C(DN$):. NC
.0 . 4700...J.. NC.16 . NC.16.4.M.. SETU
P FILE NAME FOR SAVE.J.R.. I.1 . NC:. 49
164.I,F(J(DN$,I,1)):.:. 49161,NC.3...|..
49158 :. SAVE PICTURE...... 12000:. REA
D ERROR CHANNEL.K.... A.20 . 4180:. IF E
RROR, RETRY...... "... HIT ANY KEY TO
CONTINUE:":. 198,0:. 198,1:. 100.*.... C
OMMUNICATION ERROR ROUTINE.S.... 53280,6
:. 7000:. CLEAR BITMAP MODE......"... **
* ERROR DETECTED IN TRANSMISSION ***"...
... 198,0:. 198,1:. 100...\.. NO FILE NA
ME ROUTINE...F.. ". - .PICTURE IS IN MEM
ORY AT $2000."...P.. ". - .EXIT AND RUN
FLEXIDRAW TO CAPTURE.".!.Z.. 4380.'.....
?.... FORMAT A NEW DISK.E.....P.... "..
*** FORMAT DISK COMMAND ***"...... "
.. NEW DISK NAME:";DN$:DN$.I(DN$,16).F..
.. ". DISK ID:";DI$:DI$.I(DI$,2)..
.D.. ".. ARE YOU SURE";S$...N.. S$.."Y
" . 100.$.S.. ". .FORMATTING NEW DISK: "
DN$","DI$".".;.X..15,"N0:"DN$","DI$.\...
. 12000:. READ ERROR CHANNEL......"..
*** FUNCTION COMPLETE ***"......"..
.HIT ANY KEY WHEN READY:.".I.... 19
8,0:. 198,1:. 100.O.P.....Z.. SETUP BITM
AP MODE............ 53265,B(53265) . 239
.(.... 49155,0,1 :. SETUP COLORS.A.... 5
3272,B(53272) . 8.[.... 53265,B(53265) .
32...... 648,32 :. POINT KERNAL TO SCRE
EN...... 53265,B(53265) . 16...J.....X..
.D.B.. EXIT FROM BITMAP MODE.J.L.....V..
53265,B(53265) . 239...... 53272,(B(532
72).240).4...... 53265,B(53265).223.'...
. 648,4.?.... 53265,B(53265).16.E.....\.
.'. SETUP SID PARAMS.I..'SD.54272...$'.
I.SD . SD.24:. I,0:.I....'. SD.5,15:. SD
.6,240:. SD.24,15...8'....T'..F.~'. SOUN
D TONE.L..'.....'. SD.4,17:. I.1 . 30:.
I....'. SD.4,16:. I.1 . 40:. I....'. SD.
4,8....'........=.... READ DISK ERROR CH
ANNEL.C.....T....15,A,B$,C,D.D../. A..20
. ..W../.". "A,B$,C,D..../. ". *** DI
SK ERROR DETECTED ***".R../. ". HIT ANY
KEY WHEN READY":. 198,0:. 198,1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL