TECHNO INFO
FILE INFORMATION
FILENAME(S): TECHNO INFO
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
15882c8100d3a2ad9e455ff2f9038eaad9cd48dd1e269aace17fd366e37a4fad
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU SEPTEMBER | TECHNO INFO | PRG | UK CD | 6 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *| 00000030: 20 20 20 20 20 54 45 43 48 4E 4F 20 49 4E 46 4F | TECHNO INFO| 00000040: 20 50 52 4F 47 52 41 4D 20 20 20 20 20 20 2A 00 | PROGRAM *.| 00000050: 76 08 1E 00 8F 20 2A 20 20 57 52 49 54 54 45 4E |v.... * WRITTEN| 00000060: 20 46 4F 52 20 53 45 50 54 45 4D 42 45 52 20 31 | FOR SEPTEMBER 1| 00000070: 39 39 30 20 20 2A 00 9D 08 28 00 8F 20 2A 20 20 |990 *...(.. * | 00000080: 49 53 53 55 45 20 4F 46 20 43 44 55 20 42 59 20 |ISSUE OF CDU BY | 00000090: 4A 2E 52 2E 46 49 4E 43 48 2E 20 20 2A 00 C4 08 |J.R.FINCH. *...| 000000A0: 32 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.. ************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 00 CA 08 3C 00 3A 00 D0 08 46 00 3A |****...<.:...F.:| 000000D0: 00 F8 08 50 00 53 41 B2 38 33 32 3A 20 8F 20 2A |...P.SA.832: . *| 000000E0: 2A 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 |* START ADDRESS | 000000F0: 46 4F 52 20 44 41 54 41 00 2F 09 64 00 99 22 93 |FOR DATA./.d..".| 00000100: 22 3A 85 22 48 4F 57 20 4D 41 4E 59 20 44 41 54 |":."HOW MANY DAT| 00000110: 41 20 49 54 45 4D 53 20 54 4F 20 43 52 45 41 54 |A ITEMS TO CREAT| 00000120: 45 44 20 28 31 2D 31 30 30 29 20 20 22 3B 4E 00 |ED (1-100) ";N.| 00000130: 47 09 6E 00 8B 20 4E B3 31 20 B0 20 4E B1 31 30 |G.n.. N.1 . N.10| 00000140: 30 20 A7 20 31 30 30 00 92 09 78 00 99 22 11 50 |0 . 100...x..".P| 00000150: 4C 45 41 53 45 20 57 41 49 54 3A 20 53 54 4F 52 |LEASE WAIT: STOR| 00000160: 49 4E 47 20 56 41 4C 55 45 53 20 41 53 20 49 46 |ING VALUES AS IF| 00000170: 20 49 54 20 20 20 20 57 45 52 45 20 53 50 52 49 | IT WERE SPRI| 00000180: 54 45 20 44 41 54 41 20 49 4E 46 4F 2E 2E 2E 11 |TE DATA INFO....| 00000190: 11 22 00 BF 09 7D 00 99 22 50 52 4F 47 52 41 4D |."...}.."PROGRAM| 000001A0: 20 57 49 4C 4C 20 57 52 49 54 45 20 4C 49 4E 45 | WILL WRITE LINE| 000001B0: 53 20 43 4F 4E 54 41 49 4E 49 4E 47 20 38 22 00 |S CONTAINING 8".| 000001C0: FD 09 7F 00 99 22 42 59 54 45 53 20 41 4E 44 20 |....."BYTES AND | 000001D0: 54 48 45 52 45 46 4F 52 45 20 4D 41 59 20 57 52 |THEREFORE MAY WR| 000001E0: 49 54 45 20 4D 4F 52 45 20 54 48 41 4E 20 59 4F |ITE MORE THAN YO| 000001F0: 55 20 49 4E 54 45 4E 44 2E 11 11 11 22 00 36 0A |U INTEND....".6.| 00000200: 82 00 81 58 B2 31 A4 4E 3A 97 38 33 31 AA 58 2C |...X.1.N:.831.X,| 00000210: B5 28 BB 28 31 29 AC 32 35 36 29 3A 82 3A 20 8F |.(.(1).256):.: .| 00000220: 20 2A 2A 20 43 52 45 41 54 45 20 52 41 4E 44 4F | ** CREATE RANDO| 00000230: 4D 20 44 41 54 41 00 3C 0A 8C 00 3A 00 6F 0A 96 |M DATA.<...:.o..| 00000240: 00 85 22 45 4E 54 45 52 20 53 54 41 52 54 20 4C |.."ENTER START L| 00000250: 49 4E 45 20 4E 55 4D 42 45 52 20 28 31 30 30 30 |INE NUMBER (1000| 00000260: 2D 36 30 30 30 30 29 20 20 20 20 22 3B 53 4C 00 |-60000) ";SL.| 00000270: 96 0A A0 00 8B 20 53 4C B3 31 30 30 30 20 B0 20 |..... SL.1000 . | 00000280: 53 4C B1 36 30 30 30 30 20 A7 20 99 22 91 91 91 |SL.60000 . ."...| 00000290: 22 3A 89 31 35 30 00 CA 0A AA 00 85 22 11 45 4E |":.150......".EN| 000002A0: 54 45 52 20 4C 49 4E 45 20 49 4E 43 52 45 4D 45 |TER LINE INCREME| 000002B0: 4E 54 20 28 31 2D 31 30 30 29 20 20 20 20 20 20 |NT (1-100) | 000002C0: 20 20 20 20 20 20 22 3B 4C 49 00 ED 0A B4 00 8B | ";LI......| 000002D0: 20 4C 49 B3 31 20 B0 20 4C 49 B1 31 30 30 20 A7 | LI.1 . LI.100 .| 000002E0: 20 99 22 91 91 91 91 22 3A 89 31 37 30 00 F3 0A | ."....":.170...| 000002F0: BE 00 3A 00 19 0B C8 00 8F 20 2A 2A 2A 2A 2A 2A |..:...... ******| 00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 0B D2 00 8F 20 |*********.?.... | 00000320: 2A 20 57 45 20 53 48 41 4C 4C 20 53 54 41 52 54 |* WE SHALL START| 00000330: 20 50 52 49 4E 54 49 4E 47 20 54 48 45 20 2A 00 | PRINTING THE *.| 00000340: 65 0B DC 00 8F 20 2A 20 44 41 54 41 2C 20 45 58 |e.... * DATA, EX| 00000350: 49 54 49 4E 47 20 41 4E 44 20 54 48 45 4E 20 20 |ITING AND THEN | 00000360: 20 20 20 20 2A 00 8B 0B E6 00 8F 20 2A 20 52 45 | *...... * RE| 00000370: 2D 45 4E 54 45 52 49 4E 47 20 54 48 45 20 50 52 |-ENTERING THE PR| 00000380: 4F 47 52 41 4D 20 20 20 20 20 2A 00 B1 0B F0 00 |OGRAM *.....| 00000390: 8F 20 2A 20 53 48 4F 52 54 4C 59 3A 20 53 41 56 |. * SHORTLY: SAV| 000003A0: 45 20 41 4E 59 20 56 41 52 49 41 42 4C 45 53 20 |E ANY VARIABLES | 000003B0: 2A 00 D7 0B FA 00 8F 20 2A 20 4E 4F 57 20 54 4F |*...... * NOW TO| 000003C0: 20 53 4F 4D 45 20 4C 4F 43 41 54 49 4F 4E 53 20 | SOME LOCATIONS | 000003D0: 49 4E 20 20 20 20 2A 00 FD 0B 04 01 8F 20 2A 20 |IN *...... * | 000003E0: 4D 45 4D 4F 52 59 20 41 53 20 53 48 4F 57 4E 20 |MEMORY AS SHOWN | 000003F0: 42 59 20 54 48 45 20 20 20 20 20 20 2A 00 23 0C |BY THE *.#.| 00000400: 0E 01 8F 20 2A 20 45 58 41 4D 50 4C 45 20 4C 49 |... * EXAMPLE LI| 00000410: 4E 45 20 33 30 30 20 20 20 20 20 20 20 20 20 20 |NE 300 | 00000420: 20 20 2A 00 49 0C 18 01 8F 20 2A 2A 2A 2A 2A 2A | *.I.... ******| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 0C 22 01 3A 00 |*********.O.".:.| 00000450: 6E 0C 2C 01 97 20 36 37 39 2C 58 31 3A 97 20 36 |n.,.. 679,X1:. 6| 00000460: 38 30 2C 59 31 3A 97 20 36 38 31 2C 43 31 00 74 |80,Y1:. 681,C1.t| 00000470: 0C 36 01 3A 00 9A 0C 40 01 8F 20 2A 2A 2A 2A 2A |.6.:...@.. *****| 00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 0C 4A 01 8F |**********...J..| 000004A0: 20 2A 20 53 54 4F 52 45 20 53 54 41 52 54 20 4C | * STORE START L| 000004B0: 49 4E 45 2F 20 41 44 44 52 45 53 53 20 2F 20 2A |INE/ ADDRESS / *| 000004C0: 00 E6 0C 54 01 8F 20 2A 20 49 4E 43 52 45 4D 45 |...T.. * INCREME| 000004D0: 4E 54 2F 20 4E 4F 2E 4F 46 20 44 41 54 41 20 49 |NT/ NO.OF DATA I| 000004E0: 54 45 4D 53 20 2A 00 0C 0D 5E 01 8F 20 2A 2A 2A |TEMS *...^.. ***| 000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 0D 68 |************...h| 00000510: 01 3A 00 42 0D 6D 01 97 20 36 38 32 2C 28 28 53 |.:.B.m.. 682,((S| 00000520: 4C AD 32 35 36 29 AB B5 28 53 4C AD 32 35 36 29 |L.256)..(SL.256)| 00000530: 29 AC 32 35 36 3A 97 20 36 38 33 2C 53 4C AD 32 |).256:. 683,SL.2| 00000540: 35 36 00 72 0D 72 01 97 20 36 38 35 2C 28 28 53 |56.r.r.. 685,((S| 00000550: 41 AD 32 35 36 29 AB B5 28 53 41 AD 32 35 36 29 |A.256)..(SA.256)| 00000560: 29 AC 32 35 36 3A 97 20 36 38 36 2C 53 41 AD 32 |).256:. 686,SA.2| 00000570: 35 36 00 7F 0D 77 01 97 20 36 38 37 2C 4C 49 00 |56...w.. 687,LI.| 00000580: AC 0D 7C 01 97 20 36 38 38 2C 28 28 4E AD 32 35 |..|.. 688,((N.25| 00000590: 36 29 AB B5 28 4E AD 32 35 36 29 29 AC 32 35 36 |6)..(N.256)).256| 000005A0: 3A 97 20 36 38 39 2C 4E AD 32 35 36 00 B2 0D 81 |:. 689,N.256....| 000005B0: 01 3A 00 D8 0D 86 01 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FE 0D 90 01 8F 20 2A |********...... *| 000005E0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 45 | PROGRAM WILL RE| 000005F0: 54 55 52 4E 20 54 4F 20 4C 49 4E 45 20 2A 00 24 |TURN TO LINE *.$| 00000600: 0E 9A 01 8F 20 2A 20 35 30 30 20 53 4F 20 53 54 |.... * 500 SO ST| 00000610: 41 52 54 20 52 45 54 52 49 45 56 49 4E 47 20 20 |ART RETRIEVING | 00000620: 20 20 20 2A 00 4A 0E A4 01 8F 20 2A 20 56 41 52 | *.J.... * VAR| 00000630: 49 41 42 4C 45 53 20 41 4E 44 20 43 41 4C 43 55 |IABLES AND CALCU| 00000640: 4C 41 54 49 4E 47 20 20 20 2A 00 70 0E AE 01 8F |LATING *.p....| 00000650: 20 2A 20 4E 45 58 54 20 4C 49 4E 45 20 4E 55 4D | * NEXT LINE NUM| 00000660: 42 45 52 20 41 4E 44 20 41 44 44 52 45 53 53 2A |BER AND ADDRESS*| 00000670: 00 96 0E B8 01 8F 20 2A 20 41 54 20 54 48 41 54 |...... * AT THAT| 00000680: 20 4C 49 4E 45 20 41 4E 44 20 4C 45 54 20 4C 4F | LINE AND LET LO| 00000690: 43 27 4E 20 20 2A 00 BC 0E C2 01 8F 20 2A 20 54 |C'N *...... * T| 000006A0: 57 4F 20 48 4F 4C 44 20 54 48 45 20 56 41 4C 55 |WO HOLD THE VALU| 000006B0: 45 20 46 4F 52 20 54 48 45 20 20 2A 00 E2 0E CC |E FOR THE *....| 000006C0: 01 8F 20 2A 20 4E 55 4D 42 45 52 20 4F 46 20 4C |.. * NUMBER OF L| 000006D0: 49 4E 45 53 20 44 4F 4E 45 20 53 4F 20 46 41 52 |INES DONE SO FAR| 000006E0: 20 2A 00 08 0F D6 01 8F 20 2A 2A 2A 2A 2A 2A 2A | *...... *******| 000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000700: 2A 2A 2A 2A 2A 2A 2A 2A 00 0E 0F E0 01 3A 00 17 |********.....:..| 00000710: 0F EA 01 97 32 2C 30 00 59 0F F4 01 4E 4C B2 28 |....2,0.Y...NL.(| 00000720: C2 28 36 38 32 29 AA C2 28 36 38 33 29 AC 32 35 |.(682)..(683).25| 00000730: 36 29 AA C2 28 36 38 37 29 AC C2 28 32 29 3A 20 |6)..(687)..(2): | 00000740: 8F 20 2A 2A 20 43 41 4C 43 2E 20 4E 45 58 54 20 |. ** CALC. NEXT | 00000750: 4C 49 4E 45 20 4E 4D 42 52 00 9D 0F FE 01 41 44 |LINE NMBR.....AD| 00000760: B2 C2 28 36 38 35 29 AA C2 28 36 38 36 29 AC 32 |..(685)..(686).2| 00000770: 35 36 AA C2 28 32 29 AC 38 3A 20 8F 20 2A 2A 20 |56..(2).8: . ** | 00000780: 53 54 41 52 54 20 41 44 44 52 2E 20 46 4F 52 20 |START ADDR. FOR | 00000790: 31 53 54 20 4F 46 20 4E 45 58 54 20 38 00 A3 0F |1ST OF NEXT 8...| 000007A0: 08 02 3A 00 DD 0F 0D 02 8B 20 41 44 B1 B2 28 28 |..:...... AD..((| 000007B0: C2 28 36 38 38 29 AA C2 28 36 38 39 29 AC 32 35 |.(688)..(689).25| 000007C0: 36 29 AA 28 C2 28 36 38 35 29 AA C2 28 36 38 36 |6).(.(685)..(686| 000007D0: 29 AC 32 35 36 29 29 20 A7 20 36 32 30 00 F1 0F |).256)) . 620...| 000007E0: 12 02 99 22 93 11 11 22 4E 4C 22 44 41 54 41 22 |..."..."NL"DATA"| 000007F0: 3B 00 33 10 1C 02 81 20 58 B2 30 20 A4 20 37 3A |;.3.... X.0 . 7:| 00000800: 20 99 20 C2 28 41 44 AA 58 29 22 9D 2C 22 3B 3A | . .(AD.X)".,";:| 00000810: 20 82 3A 20 8F 20 2A 2A 20 50 52 49 4E 54 20 4F | .: . ** PRINT O| 00000820: 55 54 20 56 41 4C 55 45 53 20 4F 46 20 4E 45 58 |UT VALUES OF NEX| 00000830: 54 20 38 00 74 10 26 02 99 22 9D 20 22 3A 99 22 |T 8.t.&..". ":."| 00000840: 47 4F 54 4F 35 30 30 13 22 3B 3A 8F 20 2A 2A 20 |GOTO500.";:. ** | 00000850: 45 4E 44 20 4F 46 20 4C 41 53 54 20 4C 49 4E 45 |END OF LAST LINE| 00000860: 20 2D 20 47 45 54 20 52 45 41 44 59 20 54 4F 20 | - GET READY TO | 00000870: 45 58 49 54 00 7A 10 30 02 3A 00 B3 10 35 02 97 |EXIT.z.0.:...5..| 00000880: 32 2C C2 28 32 29 AA 31 3A 20 8F 20 2A 2A 20 49 |2,.(2).1: . ** I| 00000890: 4E 43 52 45 41 53 45 20 4E 4F 2E 20 4F 46 20 4C |NCREASE NO. OF L| 000008A0: 49 4E 45 53 20 44 4F 4E 45 20 28 4D 41 58 3D 32 |INES DONE (MAX=2| 000008B0: 35 35 29 00 D0 10 3A 02 97 36 33 31 2C 31 33 3A |55)...:..631,13:| 000008C0: 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A 80 |.632,13:.198,2:.| 000008D0: 00 04 11 44 02 8F 20 5E 5E 20 46 49 4C 4C 20 42 |...D.. ^^ FILL B| 000008E0: 55 46 46 45 52 20 57 49 54 48 20 43 48 52 24 28 |UFFER WITH CHR$(| 000008F0: 31 33 29 20 41 4E 44 20 45 58 49 54 20 50 52 4F |13) AND EXIT PRO| 00000900: 47 52 41 4D 00 4E 11 4E 02 8F 20 2A 2A 20 4C 49 |GRAM.N.N.. ** LI| 00000910: 4E 45 20 57 49 4C 4C 20 42 45 20 45 4E 54 45 52 |NE WILL BE ENTER| 00000920: 45 44 2C 20 41 4E 44 20 43 4F 4D 50 55 54 45 52 |ED, AND COMPUTER| 00000930: 20 57 49 4C 4C 20 45 58 45 43 55 54 45 20 27 47 | WILL EXECUTE 'G| 00000940: 4F 54 4F 27 20 53 54 41 54 45 4D 45 4E 54 00 8A |OTO' STATEMENT..| 00000950: 11 58 02 8F 20 2A 2A 20 54 48 55 53 20 52 45 54 |.X.. ** THUS RET| 00000960: 55 52 4E 49 4E 47 20 54 4F 20 4C 49 4E 45 20 35 |URNING TO LINE 5| 00000970: 30 30 20 46 4F 52 20 4D 4F 52 45 20 49 46 20 41 |00 FOR MORE IF A| 00000980: 4E 59 20 49 53 20 4C 45 46 54 00 90 11 62 02 3A |NY IS LEFT...b.:| 00000990: 00 DA 11 6C 02 8F 20 2A 2A 20 41 4C 4C 20 44 4F |...l.. ** ALL DO| 000009A0: 4E 45 20 53 4F 20 45 58 49 54 20 50 52 4F 47 52 |NE SO EXIT PROGR| 000009B0: 41 4D 20 28 52 45 54 55 52 4E 20 46 52 4F 4D 20 |AM (RETURN FROM | 000009C0: 41 20 53 55 42 52 4F 55 54 49 4E 45 20 49 46 20 |A SUBROUTINE IF | 000009D0: 4E 45 43 45 53 53 41 52 59 29 00 E0 11 76 02 3A |NECESSARY)...v.:| 000009E0: 00 E6 11 80 02 80 00 00 00 |......... |
..(.... ******************************** .O.... * TECHNO INFO PROGRAM *. V.... * WRITTEN FOR SEPTEMBER 1990 *.. .(.. * ISSUE OF CDU BY J.R.FINCH. *.D. 2.. ********************************.J.< .:.P.F.:...P.SA.832: . ** START ADDRESS FOR DATA./.D..".":."HOW MANY DATA ITEMS TO CREATED (1-100) ";N.G.N.. N.1 . N.10 0 . 100...X..".PLEASE WAIT: STORING VALU ES AS IF IT WERE SPRITE DATA INFO.... ."...}.."PROGRAM WILL WRITE LINES CONTAI NING 8"....."BYTES AND THEREFORE MAY WR ITE MORE THAN YOU INTEND....".6....X.1.N :.831.X,.(.(1).256):.: . ** CREATE RANDO M DATA.<...:.O...."ENTER START LINE NUMB ER (1000-60000) ";SL... .. SL.1000 . SL.60000 . ."...":.150.J....".ENTER LINE INCREMENT (1-100) ";LI...... LI.1 . LI.100 . ."....":.170.....:...H. . *******************************.?.R.. * WE SHALL START PRINTING THE *.E.... * DATA, EXITING AND THEN *...... * RE -ENTERING THE PROGRAM *...... * SHOR TLY: SAVE ANY VARIABLES *.W.... * NOW TO SOME LOCATIONS IN *...... * MEMORY A S SHOWN BY THE *.#.... * EXAMPLE LI NE 300 *.I.... ************** *****************.O.".:.N.,.. 679,X1:. 6 80,Y1:. 681,C1.T.6.:...@.. ************* ******************...J.. * STORE START L INE/ ADDRESS / *...T.. * INCREMENT/ NO.O F DATA ITEMS *...^.. ******************* ************...H.:.B.M.. 682,((SL.256).. (SL.256)).256:. 683,SL.256.R.R.. 685,((S A.256)..(SA.256)).256:. 686,SA.256..W.. 687,LI...|.. 688,((N.256)..(N.256)).256 :. 689,N.256.....:.X.... *************** ****************...... * PROGRAM WILL RE TURN TO LINE *.$.... * 500 SO START RETR IEVING *.J.... * VARIABLES AND CALCU LATING *.P.... * NEXT LINE NUMBER AND ADDRESS*...... * AT THAT LINE AND LET LO C'N *...B.. * TWO HOLD THE VALUE FOR TH E *...L.. * NUMBER OF LINES DONE SO FAR *...V.. ******************************* .....:......2,0.Y...NL.(B(682).B(683).25 6).B(687).B(2): . ** CALC. NEXT LINE NMB R.....AD.B(685).B(686).256.B(2).8: . ** START ADDR. FOR 1ST OF NEXT 8.....:..... . AD..((B(688).B(689).256).(B(685).B(686 ).256)) . 620......"..."NL"DATA";.3.... X.0 . 7: . B(AD.X)".,";: .: . ** PRINT O UT VALUES OF NEXT 8.T.&..". ":."GOTO500. ";:. ** END OF LAST LINE - GET READY TO EXIT.Z.0.:...5..2,B(2).1: . ** INCREASE NO. OF LINES DONE (MAX=255).P.:..631,13: .632,13:.198,2:....D.. ^^ FILL BUFFER WI TH CHR$(13) AND EXIT PROGRAM.N.N.. ** LI NE WILL BE ENTERED, AND COMPUTER WILL EX ECUTE 'GOTO' STATEMENT...X.. ** THUS RET URNING TO LINE 500 FOR MORE IF ANY IS LE FT...B.:.Z.L.. ** ALL DONE SO EXIT PROGR AM (RETURN FROM A SUBROUTINE IF NECESSAR Y)...V.:.........
> CLICK IMAGE PREVIEW FOR FULL MODAL