PROCHAR
FILE INFORMATION
FILENAME(S): PROCHAR
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
e5df71db43b874e0ec60085b5eb76f6b52dc5a8e086c87e064bcbb01f10ceb2d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 5 | PROCHAR | PRG | DuncanTwain | 24 | 0 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 25 04 00 00 9C 3A 50 47 24 B2 22 50 52 4F |..%....:PG$."PRO|
00000010: 43 48 41 52 22 3A 4E 4D 24 B2 22 32 37 22 3A 89 |CHAR":NM$."27":.|
00000020: 36 32 30 30 30 00 36 04 01 00 22 20 53 54 45 56 |62000.6..." STEV|
00000030: 45 20 47 55 4C 4C 00 48 04 02 00 22 20 31 34 30 |E GULL.H..." 140|
00000040: 33 20 53 54 45 4C 4C 41 00 5B 04 03 00 22 20 41 |3 STELLA.[..." A|
00000050: 4E 41 48 49 45 4D 2C 20 43 41 2E 00 61 04 04 00 |NAHIEM, CA..a...|
00000060: 22 00 80 04 05 00 22 20 43 55 52 53 4F 52 20 23 |"....." CURSOR #|
00000070: 32 37 2C 20 41 55 47 55 53 54 2C 20 31 39 38 31 |27, AUGUST, 1981|
00000080: 00 A6 04 06 00 22 20 43 4F 50 59 52 49 47 48 54 |....." COPYRIGHT|
00000090: 28 43 29 31 39 38 31 20 54 48 45 20 43 4F 44 45 |(C)1981 THE CODE|
000000A0: 20 57 4F 52 4B 53 00 C7 04 07 00 22 20 42 4F 58 | WORKS....." BOX|
000000B0: 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C 20 43 41 | 550, GOLETA, CA|
000000C0: 2E 20 39 33 31 31 36 00 CD 04 08 00 22 00 EB 04 |. 93116....."...|
000000D0: 0A 00 22 20 41 53 20 4F 46 20 31 39 41 55 47 38 |.." AS OF 19AUG8|
000000E0: 31 20 35 3A 33 30 20 20 4D 54 52 00 F4 04 64 00 |1 5:30 MTR...d.|
000000F0: 50 46 B2 30 00 15 05 C8 00 54 42 24 B2 22 22 3A |PF.0.....TB$."":|
00000100: 81 58 B2 31 A4 38 30 3A 54 42 24 B2 54 42 24 AA |.X.1.80:TB$.TB$.|
00000110: 22 1D 22 3A 82 00 43 05 D2 00 99 22 93 11 20 20 |".":..C....".. |
00000120: 20 50 52 4F 47 52 41 4D 41 42 4C 45 20 43 48 41 | PROGRAMABLE CHA|
00000130: 52 41 43 54 45 52 20 46 4F 52 20 50 52 49 4E 54 |RACTER FOR PRINT|
00000140: 45 52 22 00 74 05 DC 00 81 58 B2 31 A4 33 39 3A |ER".t....X.1.39:|
00000150: 99 22 A3 22 3B 3A 82 3A 3A 99 3A 99 C8 28 54 42 |.".";:.::.:..(TB|
00000160: 24 2C 32 30 29 22 91 CF 11 9D 22 3B 3A 81 58 B2 |$,20)"....";:.X.|
00000170: 31 A4 32 30 00 8B 05 E6 00 99 22 A5 11 9D 22 3B |1.20......"...";|
00000180: 3A 82 3A 99 22 13 11 11 11 22 3B 00 AB 05 F0 00 |:.:."....";.....|
00000190: 99 C8 28 54 42 24 2C 32 36 29 22 11 12 35 92 2D |..(TB$,26)"..5.-|
000001A0: 50 4C 4F 54 2F 45 52 41 53 45 22 00 CC 05 FA 00 |PLOT/ERASE".....|
000001B0: 99 C8 28 54 42 24 2C 32 36 29 22 11 12 45 92 2D |..(TB$,26)"..E.-|
000001C0: 45 52 41 53 45 20 43 48 41 52 2E 22 00 EC 05 04 |ERASE CHAR."....|
000001D0: 01 99 C8 28 54 42 24 2C 32 36 29 22 11 12 49 92 |...(TB$,26)"..I.|
000001E0: 2D 49 4E 56 45 52 53 45 20 20 20 22 00 0C 06 0E |-INVERSE "....|
000001F0: 01 99 C8 28 54 42 24 2C 32 36 29 22 11 12 52 92 |...(TB$,26)"..R.|
00000200: 2D 52 4F 57 20 50 4C 4F 54 20 20 22 00 31 06 18 |-ROW PLOT ".1..|
00000210: 01 99 C8 28 54 42 24 2C 32 31 29 22 11 53 48 49 |...(TB$,21)".SHI|
00000220: 46 54 12 52 92 2D 52 4F 57 20 45 52 41 53 45 20 |FT.R.-ROW ERASE |
00000230: 22 00 52 06 22 01 99 C8 28 54 42 24 2C 32 36 29 |".R."...(TB$,26)|
00000240: 22 11 12 43 92 2D 43 4F 4C 55 4D 4E 20 50 4C 4F |"..C.-COLUMN PLO|
00000250: 54 22 00 79 06 2C 01 99 C8 28 54 42 24 2C 32 31 |T".y.,...(TB$,21|
00000260: 29 22 11 53 48 49 46 54 12 43 92 2D 43 4F 4C 55 |)".SHIFT.C.-COLU|
00000270: 4D 4E 20 45 52 41 53 45 22 00 86 06 31 01 8B 57 |MN ERASE"...1..W|
00000280: 44 B2 38 30 A7 99 00 A3 06 36 01 99 C8 28 54 42 |D.80.....6...(TB|
00000290: 24 2C 32 36 29 22 12 50 92 2D 50 52 49 4E 54 20 |$,26)".P.-PRINT |
000002A0: 20 20 22 00 C1 06 40 01 99 C8 28 54 42 24 2C 32 | "...@...(TB$,2|
000002B0: 36 29 22 11 12 51 92 2D 51 55 49 54 20 20 20 20 |6)"..Q.-QUIT |
000002C0: 22 00 F4 06 4A 01 99 22 91 20 55 53 45 20 54 48 |"...J..". USE TH|
000002D0: 45 20 4E 55 4D 42 45 52 20 50 41 44 22 3A 99 22 |E NUMBER PAD":."|
000002E0: 20 54 4F 20 4D 4F 56 45 20 54 48 45 20 43 55 52 | TO MOVE THE CUR|
000002F0: 53 4F 52 22 00 03 07 54 01 99 22 13 11 11 11 11 |SOR"...T..".....|
00000300: 11 11 22 00 16 07 5E 01 99 A6 35 29 22 B0 B2 B2 |.."...^...5)"...|
00000310: B2 B2 B2 B2 AE 22 00 21 07 68 01 81 58 B2 31 A4 |.....".!.h..X.1.|
00000320: 37 00 34 07 72 01 99 A6 35 29 22 AB 20 20 20 20 |7.4.r...5)". |
00000330: 20 20 B3 22 00 3B 07 7C 01 82 58 00 4E 07 86 01 | .".;.|..X.N...|
00000340: 99 A6 35 29 22 AD B1 B1 B1 B1 B1 B1 BD 22 00 85 |..5)"........"..|
00000350: 07 90 01 58 B2 31 3A 59 B2 31 3A 81 41 B2 31 A4 |...X.1:Y.1:.A.1.|
00000360: 36 3A 53 52 28 49 29 B2 30 3A 81 42 B2 31 A4 37 |6:SR(I).0:.B.1.7|
00000370: 3A 43 28 41 2C 42 29 B2 30 3A 82 42 2C 41 3A 43 |:C(A,B).0:.B,A:C|
00000380: 48 24 B2 22 22 00 9D 07 9A 01 4C 4F B2 43 52 54 |H$."".....LO.CRT|
00000390: AA 58 AA 35 AA 57 44 AC 28 59 AA 37 29 00 B4 07 |.X.5.WD.(Y.7)...|
000003A0: A4 01 43 48 B2 C2 28 4C 4F 29 3A 97 4C 4F 2C 43 |..CH..(LO):.LO,C|
000003B0: 48 AA 31 30 00 C7 07 AE 01 A1 41 24 3A 8B 41 24 |H.10......A$:.A$|
000003C0: B2 22 22 A7 34 33 30 00 D2 07 AF 01 97 4C 4F 2C |."".430......LO,|
000003D0: 43 48 00 E2 07 B3 01 8B 41 24 B2 22 35 22 A7 36 |CH......A$."5".6|
000003E0: 33 30 00 F2 07 B8 01 8B 41 24 B2 22 45 22 A7 33 |30......A$."E".3|
000003F0: 34 30 00 03 08 C2 01 8B 41 24 B2 22 49 22 A7 31 |40......A$."I".1|
00000400: 31 30 30 00 14 08 CC 01 8B 41 24 B2 22 52 22 A7 |100......A$."R".|
00000410: 31 31 33 30 00 25 08 D6 01 8B 41 24 B2 22 D2 22 |1130.%....A$."."|
00000420: A7 31 31 33 30 00 36 08 E0 01 8B 41 24 B2 22 43 |.1130.6....A$."C|
00000430: 22 A7 31 31 36 30 00 47 08 EA 01 8B 41 24 B2 22 |".1160.G....A$."|
00000440: C3 22 A7 31 31 36 30 00 57 08 F4 01 8B 41 24 B2 |.".1160.W....A$.|
00000450: 22 50 22 A7 36 35 30 00 68 08 FE 01 8B 41 24 B2 |"P".650.h....A$.|
00000460: 22 51 22 A7 31 31 39 30 00 79 08 12 02 8B C5 28 |"Q".1190.y.....(|
00000470: 41 24 29 B2 30 A7 34 31 30 00 AC 08 1C 02 51 B2 |A$).0.410.....Q.|
00000480: C5 28 41 24 29 3A 91 51 89 35 35 30 2C 35 35 30 |.(A$):.Q.550,550|
00000490: 2C 35 35 30 2C 35 37 30 2C 34 31 30 2C 35 39 30 |,550,570,410,590|
000004A0: 2C 36 31 30 2C 36 31 30 2C 36 31 30 00 BF 08 26 |,610,610,610...&|
000004B0: 02 59 B2 59 AA 31 3A 8B 59 B1 37 A7 59 B2 31 00 |.Y.Y.1:.Y.7.Y.1.|
000004C0: D2 08 30 02 91 51 89 35 37 30 2C 34 31 30 2C 35 |..0..Q.570,410,5|
000004D0: 39 30 00 E5 08 3A 02 58 B2 58 AB 31 3A 8B 58 B3 |90...:.X.X.1:.X.|
000004E0: 31 A7 58 B2 36 00 EE 08 44 02 89 34 31 30 00 01 |1.X.6...D..410..|
000004F0: 09 4E 02 58 B2 58 AA 31 3A 8B 58 B1 36 A7 58 B2 |.N.X.X.1:.X.6.X.|
00000500: 31 00 0A 09 58 02 89 34 31 30 00 1D 09 62 02 59 |1...X..410...b.Y|
00000510: B2 59 AB 31 3A 8B 59 B3 31 A7 59 B2 37 00 32 09 |.Y.1:.Y.1.Y.7.2.|
00000520: 6C 02 91 51 AB 36 89 35 37 30 2C 34 31 30 2C 35 |l..Q.6.570,410,5|
00000530: 39 30 00 5A 09 76 02 5A B2 C2 28 4C 4F 29 3A 8B |90.Z.v.Z..(LO):.|
00000540: 5A B2 31 36 30 A7 97 4C 4F 2C 33 32 3A 43 28 58 |Z.160..LO,32:C(X|
00000550: 2C 59 29 B2 30 3A 89 34 31 30 00 74 09 80 02 97 |,Y).0:.410.t....|
00000560: 4C 4F 2C 31 36 30 3A 43 28 58 2C 59 29 B2 31 3A |LO,160:C(X,Y).1:|
00000570: 89 34 31 30 00 95 09 8A 02 99 22 13 11 11 11 11 |.410......".....|
00000580: 1D 12 50 52 49 4E 54 49 4E 47 20 43 48 41 52 41 |..PRINTING CHARA|
00000590: 43 54 45 52 22 00 A0 09 8F 02 43 48 24 B2 22 22 |CTER".....CH$.""|
000005A0: 00 B7 09 94 02 81 41 B2 31 A4 36 3A 43 48 B2 30 |......A.1.6:CH.0|
000005B0: 3A 81 42 B2 31 A4 37 00 D0 09 9E 02 43 48 B2 43 |:.B.1.7.....CH.C|
000005C0: 48 AA 43 28 41 2C 42 29 AC 32 AE 28 37 AB 42 29 |H.C(A,B).2.(7.B)|
000005D0: 00 F1 09 02 03 82 42 3A 53 52 28 41 29 B2 43 48 |......B:SR(A).CH|
000005E0: 3A 43 48 24 B2 43 48 24 AA C7 28 43 48 29 3A 82 |:CH$.CH$..(CH):.|
000005F0: 41 00 FA 09 0C 03 9F 31 2C 34 00 04 0A 20 03 8D |A......1,4... ..|
00000600: 32 30 30 30 00 2F 0A 2A 03 8B 5A 5A 24 B2 43 48 |2000./.*..ZZ$.CH|
00000610: 24 A7 99 22 13 11 11 11 11 20 20 20 20 12 44 55 |$.."..... .DU|
00000620: 50 4C 49 43 41 54 45 21 92 20 20 20 20 20 22 00 |PLICATE!. ".|
00000630: 3B 0A 34 03 5A 5A 24 B2 43 48 24 00 50 0A 5C 03 |;.4.ZZ$.CH$.P.\.|
00000640: 9F 32 2C 34 2C 35 3A 98 32 2C 43 48 24 3A A0 32 |.2,4,5:.2,CH$:.2|
00000650: 00 62 0A 7A 03 98 31 2C 22 20 20 20 20 20 20 20 |.b.z..1," |
00000660: 22 3B 00 83 0A 84 03 81 57 B2 31 A4 36 3A 98 31 |";......W.1.6:.1|
00000670: 2C C7 28 32 35 34 29 C7 28 31 29 22 20 20 22 3B |,.(254).(1)" ";|
00000680: 3A 82 57 00 AB 0A 89 03 98 31 2C C7 28 31 30 29 |:.W......1,.(10)|
00000690: 22 32 30 20 50 52 49 4E 54 23 31 22 3B 3A 5A 24 |"20 PRINT#1";:Z$|
000006A0: B2 22 2C 22 3A 81 42 B2 31 A4 36 00 D7 0A 8A 03 |.",":.B.1.6.....|
000006B0: 98 31 2C 5A 24 3B 22 43 48 52 24 28 22 CA 28 C4 |.1,Z$;"CHR$(".(.|
000006C0: 28 53 52 28 42 29 29 2C 32 29 22 29 22 3B 3A 5A |(SR(B)),2)")";:Z|
000006D0: 24 B2 22 3B 22 3A 82 00 F9 0A 8E 03 98 31 3A 98 |$.";":.......1:.|
000006E0: 31 3A 98 31 3A 98 31 3A 98 31 3A 98 31 2C C7 28 |1:.1:.1:.1:.1,.(|
000006F0: 31 30 29 2C C7 28 31 30 29 00 00 0B 93 03 A0 31 |10),.(10)......1|
00000700: 00 20 0B 98 03 99 22 13 11 11 11 11 1D 20 20 20 |. ...."...... |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000720: 00 29 0B A2 03 89 34 31 30 00 3D 0B 4C 04 81 58 |.)....410.=.L..X|
00000730: 31 B2 31 A4 36 3A 81 59 31 B2 31 A4 37 00 76 0B |1.1.6:.Y1.1.7.v.|
00000740: 56 04 5A B2 43 52 54 AA 58 31 AA 35 AA 57 44 AC |V.Z.CRT.X1.5.WD.|
00000750: 28 59 31 AA 37 29 3A 97 5A 2C 31 39 32 AB C2 28 |(Y1.7):.Z,192..(|
00000760: 5A 29 3A 43 28 58 31 2C 59 31 29 B2 31 AB 43 28 |Z):C(X1,Y1).1.C(|
00000770: 58 31 2C 59 31 29 00 86 0B 60 04 82 59 31 2C 58 |X1,Y1)...`..Y1,X|
00000780: 31 3A 89 34 31 30 00 A6 0B 6A 04 81 58 31 B2 31 |1:.410...j..X1.1|
00000790: A4 36 3A 5A B2 43 52 54 AA 58 31 AA 35 AA 57 44 |.6:Z.CRT.X1.5.WD|
000007A0: AC 28 59 AA 37 29 00 D3 0B 74 04 97 5A 2C 33 32 |.(Y.7)...t..Z,32|
000007B0: 3A 43 28 58 31 2C 59 29 B2 30 3A 8B 41 24 B2 22 |:C(X1,Y).0:.A$."|
000007C0: 52 22 A7 97 5A 2C 31 36 30 3A 43 28 58 31 2C 59 |R"..Z,160:C(X1,Y|
000007D0: 29 B2 31 00 E0 0B 7E 04 82 58 31 3A 89 34 31 30 |).1...~..X1:.410|
000007E0: 00 00 0C 88 04 81 59 31 B2 31 A4 37 3A 5A B2 43 |......Y1.1.7:Z.C|
000007F0: 52 54 AA 58 AA 35 AA 57 44 AC 28 59 31 AA 37 29 |RT.X.5.WD.(Y1.7)|
00000800: 00 2D 0C 92 04 97 5A 2C 33 32 3A 43 28 58 2C 59 |.-....Z,32:C(X,Y|
00000810: 31 29 B2 30 3A 8B 41 24 B2 22 43 22 A7 97 5A 2C |1).0:.A$."C"..Z,|
00000820: 31 36 30 3A 43 28 58 2C 59 31 29 B2 31 00 3A 0C |160:C(X,Y1).1.:.|
00000830: 9C 04 82 59 31 3A 89 34 31 30 00 43 0C A6 04 99 |...Y1:.410.C....|
00000840: 22 93 22 00 49 0C B0 04 80 00 56 0C D0 07 8B 20 |".".I.....V.... |
00000850: 50 46 20 A7 20 8E 00 68 0C DA 07 50 46 B2 31 3A |PF . ..h...PF.1:|
00000860: 98 31 2C C7 28 31 39 29 00 89 0C E4 07 98 31 2C |.1,.(19)......1,|
00000870: 22 50 52 4F 43 48 41 52 20 2D 20 43 55 52 53 4F |"PROCHAR - CURSO|
00000880: 52 20 23 32 37 22 3A 98 31 00 BF 0C EE 07 98 31 |R #27":.1......1|
00000890: 2C C7 28 31 29 22 20 20 20 20 91 50 11 52 4F 47 |,.(1)" .P.ROG|
000008A0: 52 41 4D 4D 41 42 4C 45 20 11 43 11 48 41 52 41 |RAMMABLE .C.HARA|
000008B0: 43 54 45 52 20 91 50 11 52 4F 47 52 41 4D 22 00 |CTER .P.ROGRAM".|
000008C0: F7 0C F8 07 98 31 2C C7 28 31 29 22 A3 A3 A3 A3 |.....1,.(1)"....|
000008D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000008E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000008F0: A3 A3 A3 22 3A 98 31 00 39 0D 02 08 98 31 2C 22 |...":.1.9....1,"|
00000900: 91 59 11 4F 55 20 43 41 4E 20 43 52 45 41 54 45 |.Y.OU CAN CREATE|
00000910: 20 53 50 45 43 49 41 4C 20 43 48 41 52 41 43 54 | SPECIAL CHARACT|
00000920: 45 52 53 20 49 4E 20 41 20 42 41 53 49 43 20 50 |ERS IN A BASIC P|
00000930: 52 4F 47 52 41 4D 20 22 3B 00 59 0D 0C 08 98 31 |ROGRAM ";.Y....1|
00000940: 2C 22 11 57 49 54 48 20 54 48 49 53 20 52 4F 55 |,".WITH THIS ROU|
00000950: 54 49 4E 45 2E 22 3A 98 31 00 71 0D 16 08 98 31 |TINE.":.1.q....1|
00000960: 2C 22 31 30 20 91 4F 50 45 4E 20 31 2C 34 2C 35 |,"10 .OPEN 1,4,5|
00000970: 22 00 9E 0D 20 08 98 31 2C 22 32 30 20 91 50 52 |"... ..1,"20 .PR|
00000980: 49 4E 54 23 31 2C 43 48 52 24 28 22 CA 28 C4 28 |INT#1,CHR$(".(.(|
00000990: 53 52 28 31 29 29 2C 32 29 3B 22 29 22 3B 00 CD |SR(1)),2);")";..|
000009A0: 0D 2A 08 81 49 B2 32 A4 36 3A 98 31 2C 22 3B 43 |.*..I.2.6:.1,";C|
000009B0: 48 52 24 28 22 CA 28 C4 28 53 52 28 49 29 29 2C |HR$(".(.(SR(I)),|
000009C0: 32 29 3B 22 29 22 3B 3A 82 49 3A 98 31 00 E1 0D |2);")";:.I:.1...|
000009D0: 34 08 98 31 2C 22 33 30 20 91 43 4C 4F 53 45 31 |4..1,"30 .CLOSE1|
000009E0: 22 00 05 0E 3E 08 98 31 3A 98 31 2C 22 91 41 11 |"...>..1:.1,".A.|
000009F0: 4E 44 20 54 4F 20 50 52 49 4E 54 20 49 54 2E 2E |ND TO PRINT IT..|
00000A00: 2E 22 3A 98 31 00 42 0E 48 08 98 31 2C 22 31 30 |.":.1.B.H..1,"10|
00000A10: 30 20 91 4F 50 45 4E 31 2C 34 3A 50 52 49 4E 54 |0 .OPEN1,4:PRINT|
00000A20: 23 31 2C 43 48 52 24 28 32 35 34 29 3A 43 4C 4F |#1,CHR$(254):CLO|
00000A30: 53 45 31 22 3A 98 31 2C C7 28 31 30 29 C7 28 31 |SE1":.1,.(10).(1|
00000A40: 30 29 00 72 0E 52 08 98 31 2C C7 28 31 29 22 20 |0).r.R..1,.(1)" |
00000A50: 20 20 20 20 20 20 91 50 11 52 4F 47 52 41 4D 4D | .P.ROGRAMM|
00000A60: 41 42 4C 45 20 91 43 11 48 41 52 41 43 54 45 52 |ABLE .C.HARACTER|
00000A70: 53 22 00 AA 0E 5C 08 98 31 2C C7 28 31 29 22 A3 |S"...\..1,.(1)".|
00000A80: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000A90: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000AA0: A3 A3 A3 A3 A3 A3 22 3A 98 31 00 B0 0E 66 08 8E |......":.1...f..|
00000AB0: 00 D1 0E 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 |...`.IN$." ":ZT.|
00000AC0: 54 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 |TI:ZC.2:ZD$..(20|
00000AD0: 29 00 E7 0E 6A EA A1 5A 24 3A 8B 5A 24 B3 B1 22 |)...j..Z$:.Z$.."|
00000AE0: 22 A7 36 30 30 37 30 00 17 0F |".60070... |
..%....:PG$."PROCHAR":NM$."27":.62000.6.
.." STEVE GULL.H..." 1403 STELLA.[..." A
NAHIEM, CA..A..."....." CURSOR #27, AUGU
ST, 1981....." COPYRIGHT(C)1981 THE CODE
WORKS.G..." BOX 550, GOLETA, CA. 93116.
M..."....." AS OF 19AUG81 5:30 MTR...D.
PF.0...H.TB$."":.X.1.80:TB$.TB$.".":..C.
R..".. PROGRAMABLE CHARACTER FOR PRINT
ER".T....X.1.39:.".";:.::.:.H(TB$,20)".O
..";:.X.1.20......"...";:.:."....";.....
.H(TB$,26)"..5.-PLOT/ERASE".L....H(TB$,2
6)"..E.-ERASE CHAR."......H(TB$,26)"..I.
-INVERSE "......H(TB$,26)"..R.-ROW PLO
T ".1....H(TB$,21)".SHIFT.R.-ROW ERASE
".R."..H(TB$,26)"..C.-COLUMN PLOT".Y.,..
H(TB$,21)".SHIFT.C.-COLUMN ERASE"...1..W
D.80.....6..H(TB$,26)".P.-PRINT ".A.@.
.H(TB$,26)"..Q.-QUIT "...J..". USE TH
E NUMBER PAD":." TO MOVE THE CURSOR"...T
.."......."...^...5)"........".!.H..X.1.
7.4.R...5)". .".;.|..X.N.....5)"...
.....".....X.1:Y.1:.A.1.6:SR(I).0:.B.1.7
:C(A,B).0:.B,A:CH$."".....LO.CRT.X.5.WD.
(Y.7).....CH.B(LO):.LO,CH.10.G....A$:.A$
."".430.R....LO,CH......A$."5".630......
A$."E".340...B..A$."I".1100...L..A$."R".
1130.%.V..A$."R".1130.6....A$."C".1160.G
....A$."C".1160.W....A$."P".650.H....A$.
"Q".1190.Y....E(A$).0.410.....Q.E(A$):.Q
.550,550,550,570,410,590,610,610,610...&
.Y.Y.1:.Y.7.Y.1.R.0..Q.570,410,590...:.X
.X.1:.X.1.X.6...D..410...N.X.X.1:.X.6.X.
1...X..410...B.Y.Y.1:.Y.1.Y.7.2.L..Q.6.5
70,410,590.Z.V.Z.B(LO):.Z.160..LO,32:C(X
,Y).0:.410.T....LO,160:C(X,Y).1:.410....
..".......PRINTING CHARACTER". ...CH$.""
......A.1.6:CH.0:.B.1.7.P...CH.CH.C(A,B)
.2.(7.B)......B:SR(A).CH:CH$.CH$.G(CH):.
A......1,4... ..2000./.*..ZZ$.CH$.."....
. .DUPLICATE!. ".;.4.ZZ$.CH$.P.\.
.2,4,5:.2,CH$: 2.B.Z..1," ";......
W.1.6:.1,G(254)G(1)" ";:.W......1,G(10)
"20 PRINT#1";:Z$.",":.B.1.6.W....1,Z$;"C
HR$("J(D(SR(B)),2)")";:Z$.";":.......1:.
1:.1:.1:.1:.1,G(10),G(10)..... 1. ....".
..... ".)....410.=.L..X
1.1.6:.Y1.1.7.V.V.Z.CRT.X1.5.WD.(Y1.7):.
Z,192.B(Z):C(X1,Y1).1.C(X1,Y1)...`..Y1,X
1:.410...J..X1.1.6:Z.CRT.X1.5.WD.(Y.7).S
.T..Z,32:C(X1,Y).0:.A$."R"..Z,160:C(X1,Y
).1...~..X1:.410......Y1.1.7:Z.CRT.X.5.W
D.(Y1.7).-....Z,32:C(X,Y1).0:.A$."C"..Z,
160:C(X,Y1).1.:....Y1:.410.C....".".I...
..V.P.. PF . ..H.Z.PF.1:.1,G(19)......1,
"PROCHAR - CURSOR #27":.1......1,G(1)"
.P.ROGRAMMABLE .C.HARACTER .P.ROGRAM".
.....1,G(1)"............................
...........":.1.9....1,".Y.OU CAN CREATE
SPECIAL CHARACTERS IN A BASIC PROGRAM "
;.Y....1,".WITH THIS ROUTINE.":.1.Q....1
,"10 .OPEN 1,4,5"... ..1,"20 .PRINT#1,CH
R$("J(D(SR(1)),2);")";.M.*..I.2.6:.1,";C
HR$("J(D(SR(I)),2);")";:.I:.1...4..1,"30
.CLOSE1"...>..1:.1,".A.ND TO PRINT IT..
.":.1.B.H..1,"100 .OPEN1,4:PRINT#1,CHR$(
254):CLOSE1":.1,G(10)G(10).R.R..1,G(1)"
.P.ROGRAMMABLE .C.HARACTERS"...\..
1,G(1)".................................
......":.1...F...Q.`.IN$." ":ZT.TI:ZC.2:
ZD$.G(20)...J..Z$:.Z$.."".60070...
> CLICK IMAGE PREVIEW FOR FULL MODAL