XINOUT
FILE INFORMATION
FILENAME(S): XINOUT
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
d03eca710d98ee261dbb8b44b2faf6ad0756400a4dae17add7f58a4e2011c9ab
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU NOVEMBER 90 | XINOUT | PRG | UK CD | 17 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 E6 03 97 35 33 32 38 30 2C 31 34 3A |.. ....53280,14:|
00000010: 97 36 34 36 2C 31 34 3A 97 35 33 32 38 31 2C 36 |.646,14:.53281,6|
00000020: 00 42 08 E7 03 41 B2 41 AA 31 3A 8B 41 B2 31 A7 |.B...A.A.1:.A.1.|
00000030: 93 22 58 49 4E 4F 55 54 2E 43 4F 44 45 22 2C 38 |."XINOUT.CODE",8|
00000040: 2C 31 00 57 08 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A |,1.W.... *******|
00000050: 2A 2A 2A 2A 2A 2A 2A 00 6C 08 F2 03 8F 20 2A 20 |*******.l.... * |
00000060: 58 49 4E 4F 55 54 44 45 4D 4F 20 2A 00 81 08 FC |XINOUTDEMO *....|
00000070: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000080: 2A 00 87 08 06 04 3A 00 AC 08 10 04 8F 20 2A 20 |*.....:...... * |
00000090: 49 4C 4C 55 53 54 52 41 54 45 53 20 54 48 45 20 |ILLUSTRATES THE |
000000A0: 45 4E 48 41 4E 43 45 4D 45 4E 54 53 00 D3 08 1A |ENHANCEMENTS....|
000000B0: 04 8F 20 2A 20 41 4E 44 20 4D 4F 44 49 46 49 43 |.. * AND MODIFIC|
000000C0: 41 54 49 4F 4E 53 20 54 4F 20 54 48 45 20 42 41 |ATIONS TO THE BA|
000000D0: 53 49 43 00 EA 08 24 04 8F 20 2A 20 49 4E 50 55 |SIC...$.. * INPU|
000000E0: 54 20 52 4F 55 54 49 4E 45 53 00 F0 08 2E 04 3A |T ROUTINES.....:|
000000F0: 00 0A 09 38 04 8F 20 2A 20 44 45 43 4C 41 52 45 |...8.. * DECLARE|
00000100: 20 56 41 52 49 41 42 4C 45 53 00 28 09 42 04 49 | VARIABLES.(.B.I|
00000110: B2 30 20 3A 20 8F 20 43 4F 55 4E 54 45 52 20 46 |.0 : . COUNTER F|
00000120: 4F 52 20 49 4E 50 55 54 00 48 09 4C 04 49 44 B2 |OR INPUT.H.L.ID.|
00000130: 30 3A 20 8F 20 43 4F 55 4E 54 45 52 20 46 4F 52 |0: . COUNTER FOR|
00000140: 20 44 49 53 50 4C 41 59 00 6C 09 56 04 4E 55 B2 | DISPLAY.l.V.NU.|
00000150: 31 32 20 3A 20 8F 20 4E 4F 2E 20 4F 46 20 27 55 |12 : . NO. OF 'U|
00000160: 53 49 4E 47 27 20 49 4E 50 55 54 53 00 8E 09 5B |SING' INPUTS...[|
00000170: 04 50 55 B2 34 20 3A 20 8F 20 4E 4F 2E 20 4F 46 |.PU.4 : . NO. OF|
00000180: 20 27 55 53 49 4E 47 27 20 50 41 47 45 53 00 B3 | 'USING' PAGES..|
00000190: 09 60 04 49 50 B2 30 20 3A 20 8F 20 43 4F 55 4E |.`.IP.0 : . COUN|
000001A0: 54 45 52 20 46 4F 52 20 50 52 49 4E 54 20 55 53 |TER FOR PRINT US|
000001B0: 49 4E 47 00 DB 09 6A 04 4E 50 B2 31 30 20 3A 20 |ING...j.NP.10 : |
000001C0: 8F 20 4E 4F 2E 20 4F 46 20 50 52 49 4E 54 20 55 |. NO. OF PRINT U|
000001D0: 53 49 4E 47 20 49 4E 50 55 54 53 00 F6 09 74 04 |SING INPUTS...t.|
000001E0: 43 53 54 B2 30 20 3A 20 8F 20 43 4F 53 54 20 4F |CST.0 : . COST O|
000001F0: 46 20 49 54 45 4D 00 0F 0A 7E 04 54 54 4C B2 30 |F ITEM...~.TTL.0|
00000200: 20 3A 20 8F 20 54 4F 54 41 4C 20 43 4F 53 54 00 | : . TOTAL COST.|
00000210: 2F 0A 92 04 4D 41 58 B2 30 20 3A 20 8F 20 4D 41 |/...MAX.0 : . MA|
00000220: 58 20 49 4E 50 55 54 20 43 4F 55 4E 54 45 52 00 |X INPUT COUNTER.|
00000230: 45 0A 9C 04 4D 53 47 24 B2 22 3F 20 46 4F 52 20 |E...MSG$."? FOR |
00000240: 48 45 4C 50 22 00 6D 0A B0 04 86 20 58 28 4E 55 |HELP".m.... X(NU|
00000250: 29 2C 59 28 4E 55 29 20 3A 20 8F 20 49 4E 50 55 |),Y(NU) : . INPU|
00000260: 54 20 43 4F 4F 52 44 49 4E 41 54 45 53 00 98 0A |T COORDINATES...|
00000270: BA 04 86 20 50 58 28 4E 55 29 2C 50 59 28 4E 55 |... PX(NU),PY(NU|
00000280: 29 20 3A 20 8F 20 50 52 4F 4D 50 54 20 43 4F 4F |) : . PROMPT COO|
00000290: 52 44 49 4E 41 54 45 53 00 BA 0A C4 04 86 20 50 |RDINATES...... P|
000002A0: 55 24 28 4E 55 29 20 3A 20 8F 20 27 55 53 49 4E |U$(NU) : . 'USIN|
000002B0: 47 27 20 50 52 4F 4D 50 54 53 00 D9 0A CE 04 86 |G' PROMPTS......|
000002C0: 20 55 24 28 4E 55 29 20 3A 20 8F 20 27 55 53 49 | U$(NU) : . 'USI|
000002D0: 4E 47 27 20 4D 41 53 4B 53 00 00 0B D8 04 86 20 |NG' MASKS...... |
000002E0: 49 55 24 28 50 55 2C 4E 55 29 20 3A 20 8F 20 27 |IU$(PU,NU) : . '|
000002F0: 55 53 49 4E 47 27 20 56 41 52 49 41 42 4C 45 53 |USING' VARIABLES|
00000300: 00 25 0B E2 04 86 20 49 4E 24 28 4E 55 29 20 3A |.%.... IN$(NU) :|
00000310: 20 8F 20 27 55 53 49 4E 47 27 20 49 4E 2D 53 54 | . 'USING' IN-ST|
00000320: 52 49 4E 47 53 00 46 0B EC 04 86 20 51 54 59 28 |RINGS.F.... QTY(|
00000330: 4E 50 29 2C 50 52 49 43 45 28 4E 50 29 2C 43 53 |NP),PRICE(NP),CS|
00000340: 54 24 28 4E 50 29 00 4C 0B F6 04 3A 00 61 0B 00 |T$(NP).L...:.a..|
00000350: 05 8F 20 2A 20 4D 41 49 4E 20 50 52 4F 47 52 41 |.. * MAIN PROGRA|
00000360: 4D 00 88 0B 0A 05 9E 20 34 39 31 35 32 20 3A 20 |M...... 49152 : |
00000370: 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 45 4E 48 |. INITIALISE ENH|
00000380: 41 4E 43 45 4D 45 4E 54 00 9C 0B 14 05 26 80 20 |ANCEMENT.....&. |
00000390: 22 03 3F 85 86 87 88 89 8A 8B 8C 22 00 BE 0B 46 |".?........"...F|
000003A0: 05 99 20 C7 28 31 34 29 3B C7 28 38 29 20 3A 20 |.. .(14);.(8) : |
000003B0: 8F 20 53 45 54 20 43 42 4D 20 4D 4F 44 45 00 C9 |. SET CBM MODE..|
000003C0: 0B 50 05 8D 20 31 34 31 30 00 D4 0B 5A 05 8D 20 |.P.. 1410...Z.. |
000003D0: 31 37 31 30 00 DA 0B 64 05 3A 00 E0 0B 6E 05 80 |1710...d.:...n..|
000003E0: 00 E6 0B 78 05 3A 00 FB 0B 82 05 8F 20 2A 20 27 |...x.:...... * '|
000003F0: 55 53 49 4E 47 27 20 44 45 4D 4F 00 06 0C 96 05 |USING' DEMO.....|
00000400: 8C 20 32 34 36 30 00 16 0C A0 05 26 81 20 58 B2 |. 2460.....&. X.|
00000410: 31 20 A4 20 4E 55 00 34 0C AA 05 20 20 87 20 50 |1 . NU.4... . P|
00000420: 58 28 26 58 29 2C 50 59 28 26 58 29 2C 50 55 24 |X(&X),PY(&X),PU$|
00000430: 28 26 58 29 00 57 0C B4 05 20 20 87 20 58 28 26 |(&X).W... . X(&|
00000440: 58 29 2C 59 28 26 58 29 2C 55 24 28 26 58 29 2C |X),Y(&X),U$(&X),|
00000450: 49 4E 24 28 26 58 29 00 69 0C B9 05 20 20 26 81 |IN$(&X).i... &.|
00000460: 20 59 B2 31 20 A4 20 50 55 00 88 0C BE 05 20 20 | Y.1 . PU..... |
00000470: 20 49 55 24 28 26 59 2C 26 58 29 B2 26 A6 C3 28 | IU$(&Y,&X).&..(|
00000480: 55 24 28 26 58 29 29 29 00 A1 0C D2 05 20 20 20 |U$(&X)))..... |
00000490: 55 24 28 4E 55 29 B2 26 C4 28 37 38 2C 22 23 22 |U$(NU).&.(78,"#"|
000004A0: 29 00 B9 0C DC 05 20 20 20 49 55 24 28 26 59 2C |)..... IU$(&Y,|
000004B0: 4E 55 29 B2 26 A6 37 38 29 00 C4 0C DD 05 20 20 |NU).&.78)..... |
000004C0: 26 82 20 59 00 CD 0C DE 05 26 82 20 58 00 DD 0C |&. Y.....&. X...|
000004D0: E1 05 26 81 20 50 B2 31 20 A4 20 50 55 00 FD 0C |..&. P.1 . PU...|
000004E0: E6 05 8D 20 31 36 31 30 3A 8F 20 44 49 53 50 4C |... 1610:. DISPL|
000004F0: 41 59 20 49 4E 50 55 54 20 50 41 47 45 00 0D 0D |AY INPUT PAGE...|
00000500: F0 05 26 81 20 49 B2 31 20 A4 20 4E 55 00 33 0D |..&. I.1 . NU.3.|
00000510: FA 05 40 20 58 28 26 49 29 2C 59 28 26 49 29 20 |..@ X(&I),Y(&I) |
00000520: 3A 20 8F 20 50 4F 53 49 54 49 4F 4E 20 43 55 52 |: . POSITION CUR|
00000530: 53 4F 52 00 43 0D 04 06 26 B5 28 49 4E 24 28 26 |SOR.C...&.(IN$(&|
00000540: 49 29 29 00 5E 0D 0E 06 85 20 B7 28 55 24 28 26 |I)).^.... .(U$(&|
00000550: 49 29 29 2C 49 55 24 28 26 50 2C 26 49 29 00 78 |I)),IU$(&P,&I).x|
00000560: 0D 18 06 26 82 20 49 20 3A 20 8F 20 55 50 44 41 |...&. I : . UPDA|
00000570: 54 45 20 46 49 45 4C 44 00 91 0D 22 06 26 82 20 |TE FIELD...".&. |
00000580: 50 20 3A 20 8F 20 55 50 44 41 54 45 20 50 41 47 |P : . UPDATE PAG|
00000590: 45 00 97 0D 2C 06 8E 00 9D 0D 36 06 3A 00 B8 0D |E...,.....6.:...|
000005A0: 40 06 8F 20 2A 20 44 49 53 50 4C 41 59 20 49 4E |@.. * DISPLAY IN|
000005B0: 50 55 54 20 50 41 47 45 00 C5 0D 4A 06 99 20 C7 |PUT PAGE...J.. .|
000005C0: 28 31 34 37 29 00 F7 0D 4C 06 4D 53 47 24 B2 22 |(147)...L.MSG$."|
000005D0: 3F 20 46 4F 52 20 48 45 4C 50 3A C3 D4 D2 CC 20 |? FOR HELP:.... |
000005E0: CE 28 45 58 54 29 3A C3 D4 D2 CC 20 D0 28 52 45 |.(EXT):.... .(RE|
000005F0: 56 49 4F 55 53 29 22 00 08 0E 4E 06 40 20 30 2C |VIOUS)"...N.@ 0,|
00000600: 32 34 20 4D 53 47 24 3B 00 20 0E 50 06 40 20 33 |24 MSG$;. .P.@ 3|
00000610: 30 2C 30 20 22 12 D0 41 47 45 92 20 22 3B 26 50 |0,0 "..AGE. ";&P|
00000620: 00 30 0E 54 06 26 81 20 58 B2 31 20 A4 20 4E 55 |.0.T.&. X.1 . NU|
00000630: 00 50 0E 5E 06 20 20 40 20 50 58 28 26 58 29 2C |.P.^. @ PX(&X),|
00000640: 50 59 28 26 58 29 20 99 20 50 55 24 28 26 58 29 |PY(&X) . PU$(&X)|
00000650: 00 6D 0E 68 06 20 20 40 20 58 28 26 58 29 AB 31 |.m.h. @ X(&X).1|
00000660: 2C 59 28 26 58 29 20 99 20 22 3A 22 3B 00 81 0E |,Y(&X) . ":";...|
00000670: 72 06 20 20 99 20 49 55 24 28 26 50 2C 26 58 29 |r. . IU$(&P,&X)|
00000680: 3B 00 8D 0E 7C 06 20 20 99 20 22 3A 22 00 96 0E |;...|. . ":"...|
00000690: 86 06 26 82 20 58 00 9C 0E 90 06 8E 00 A2 0E 9A |..&. X..........|
000006A0: 06 3A 00 BB 0E A4 06 8F 20 2A 20 50 52 49 4E 54 |.:...... * PRINT|
000006B0: 20 55 53 49 4E 47 20 44 45 4D 4F 00 C8 0E AE 06 | USING DEMO.....|
000006C0: 96 20 22 20 2C 2E 5C 22 00 D7 0E CC 06 81 20 49 |. " ,.\"...... I|
000006D0: B2 30 20 A4 20 4E 50 00 E6 0E D6 06 87 20 50 52 |.0 . NP...... PR|
000006E0: 49 43 45 28 49 29 00 FD 0E E0 06 43 53 54 24 28 |ICE(I).....CST$(|
000006F0: 49 29 B2 22 20 20 20 20 30 2E 30 30 22 00 0A 0F |I)." 0.00"...|
00000700: E2 06 51 54 59 28 49 29 B2 30 00 10 0F EA 06 82 |..QTY(I).0......|
00000710: 00 2F 0F FE 06 8D 20 31 39 34 30 20 20 3A 20 8F |./.... 1940 : .|
00000720: 20 44 49 53 50 4C 41 59 20 53 43 52 45 45 4E 00 | DISPLAY SCREEN.|
00000730: 40 0F 08 07 26 C3 28 33 29 20 C5 22 39 22 2E 30 |@...&.(3) ."9".0|
00000740: 00 50 0F 12 07 26 81 20 49 B2 31 20 A4 20 4E 50 |.P...&. I.1 . NP|
00000750: 00 69 0F 1C 07 40 20 31 30 2C 32 AC 26 49 20 85 |.i...@ 10,2.&I .|
00000760: 20 2C 51 54 59 28 26 49 29 00 88 0F 26 07 40 20 | ,QTY(&I)...&.@ |
00000770: 31 30 2C 32 AC 26 49 20 3A 20 B7 22 23 23 23 22 |10,2.&I : ."###"|
00000780: 3B 51 54 59 28 26 49 29 00 A2 0F 30 07 43 53 54 |;QTY(&I)...0.CST|
00000790: B2 51 54 59 28 26 49 29 AC 50 52 49 43 45 28 26 |.QTY(&I).PRICE(&|
000007A0: 49 29 00 C3 0F 3A 07 43 53 54 24 28 26 49 29 B2 |I)...:.CST$(&I).|
000007B0: 26 B7 24 28 22 23 23 23 23 23 2E 23 23 22 2C 43 |&.$("#####.##",C|
000007C0: 53 54 29 00 DC 0F 44 07 40 20 32 30 2C 32 AC 26 |ST)...D.@ 20,2.&|
000007D0: 49 20 99 20 43 53 54 24 28 26 49 29 00 F8 0F 4E |I . CST$(&I)...N|
000007E0: 07 8D 20 32 30 33 30 20 3A 20 8F 20 41 44 4A 55 |.. 2030 : . ADJU|
000007F0: 53 54 20 54 4F 54 41 4C 00 12 10 58 07 40 20 31 |ST TOTAL...X.@ 1|
00000800: 38 2C 32 AC 4E 50 AA 33 20 99 20 43 53 54 24 28 |8,2.NP.3 . CST$(|
00000810: 30 29 00 1B 10 62 07 26 82 20 49 00 21 10 76 07 |0)...b.&. I.!.v.|
00000820: 8E 00 27 10 80 07 3A 00 48 10 8A 07 8F 20 2A 20 |..'...:.H.... * |
00000830: 44 49 53 50 4C 41 59 20 50 52 49 4E 54 20 55 53 |DISPLAY PRINT US|
00000840: 49 4E 47 20 44 41 54 41 00 55 10 94 07 99 20 C7 |ING DATA.U.... .|
00000850: 28 31 34 37 29 00 76 10 95 07 40 20 38 2C 31 20 |(147).v...@ 8,1 |
00000860: 22 D1 55 41 4E 54 2E A0 20 20 20 20 20 20 20 20 |".UANT.. |
00000870: 20 C3 4F 53 54 22 00 86 10 96 07 81 20 49 44 B2 | .OST"...... ID.|
00000880: 31 20 A4 20 4E 50 00 A8 10 9E 07 40 20 31 2C 49 |1 . NP.....@ 1,I|
00000890: 44 AC 32 20 3A 20 B7 22 23 23 2E 23 23 22 3B 50 |D.2 : ."##.##";P|
000008A0: 52 49 43 45 28 49 44 29 00 D0 10 A8 07 40 20 39 |RICE(ID).....@ 9|
000008B0: 2C 49 44 AC 32 20 22 3A 22 3B 26 B7 24 28 22 23 |,ID.2 ":";&.$("#|
000008C0: 23 23 22 2C 51 54 59 28 49 44 29 29 3B 22 3A 22 |##",QTY(ID));":"|
000008D0: 00 E9 10 B2 07 99 20 40 20 32 30 2C 49 44 AC 32 |...... @ 20,ID.2|
000008E0: 20 43 53 54 24 28 49 44 29 00 EF 10 BC 07 82 00 | CST$(ID).......|
000008F0: 09 11 C6 07 99 20 40 20 31 38 2C 32 AC 4E 50 AA |..... @ 18,2.NP.|
00000900: 33 20 43 53 54 24 28 30 29 00 0F 11 D0 07 8E 00 |3 CST$(0).......|
00000910: 15 11 DA 07 3A 00 37 11 E4 07 8F 20 2A 20 41 44 |....:.7.... * AD|
00000920: 4A 55 53 54 20 50 52 49 4E 54 20 55 53 49 4E 47 |JUST PRINT USING|
00000930: 20 54 4F 54 41 4C 53 00 41 11 EE 07 54 54 4C B2 | TOTALS.A...TTL.|
00000940: 30 00 51 11 F8 07 26 81 20 59 B2 31 20 A4 20 4E |0.Q...&. Y.1 . N|
00000950: 50 00 69 11 02 08 54 54 4C B2 54 54 4C AA C5 28 |P.i...TTL.TTL..(|
00000960: 43 53 54 24 28 26 59 29 29 00 72 11 0C 08 26 82 |CST$(&Y)).r...&.|
00000970: 20 59 00 94 11 16 08 43 53 54 24 28 30 29 B2 26 | Y.....CST$(0).&|
00000980: B7 24 28 22 23 23 23 23 23 23 23 2E 23 23 22 2C |.$("#######.##",|
00000990: 54 54 4C 29 00 9A 11 20 08 8E 00 A0 11 2A 08 3A |TTL)... .....*.:|
000009A0: 00 B6 11 2E 09 8F 20 2A 20 50 52 49 4E 54 20 4D |...... * PRINT M|
000009B0: 45 53 53 41 47 45 00 CF 11 38 09 40 20 30 2C 32 |ESSAGE...8.@ 0,2|
000009C0: 34 20 22 12 22 AA 4D 53 47 24 AA 22 92 22 3B 00 |4 ".".MSG$.".";.|
000009D0: DC 11 42 09 40 20 30 2C 30 20 85 2C 00 F3 11 4C |..B.@ 0,0 .,...L|
000009E0: 09 40 20 30 2C 32 34 20 26 A6 C3 28 4D 53 47 24 |.@ 0,24 &..(MSG$|
000009F0: 29 29 3B 00 F9 11 56 09 8E 00 FF 11 60 09 3A 00 |));...V.....`.:.|
00000A00: 14 12 6A 09 8F 20 2A 20 50 52 45 53 53 20 52 45 |..j.. * PRESS RE|
00000A10: 54 55 52 4E 00 31 12 74 09 40 20 30 2C 30 20 85 |TURN.1.t.@ 0,0 .|
00000A20: 20 22 D0 52 45 53 53 20 52 45 54 55 52 4E 20 22 | ".RESS RETURN "|
00000A30: 2C 00 37 12 7E 09 8E 00 3D 12 88 09 3A 00 5B 12 |,.7.~...=...:.[.|
00000A40: 92 09 8F 20 2A 20 44 41 54 41 20 46 4F 52 20 27 |... * DATA FOR '|
00000A50: 55 53 49 4E 47 27 20 44 45 4D 4F 00 89 12 9C 09 |USING' DEMO.....|
00000A60: 83 20 20 31 2C 20 31 2C 22 C6 4F 52 45 4E 41 4D |. 1, 1,".ORENAM|
00000A70: 45 22 20 2C 31 31 2C 20 31 2C 22 C1 41 41 41 41 |E" ,11, 1,".AAAA|
00000A80: 41 41 41 41 41 22 2C 22 22 00 BD 12 A6 09 83 20 |AAAAA",""...... |
00000A90: 20 31 2C 20 32 2C 22 D3 55 52 4E 41 4D 45 22 20 | 1, 2,".URNAME" |
00000AA0: 20 2C 31 31 2C 20 32 2C 22 C1 41 41 41 41 41 41 | ,11, 2,".AAAAAA|
00000AB0: 41 41 41 41 41 41 41 41 41 22 2C 22 22 00 E4 12 |AAAAAAAAA",""...|
00000AC0: B0 09 83 20 33 30 2C 20 32 2C 22 D3 45 58 22 20 |... 30, 2,".EX" |
00000AD0: 20 20 20 20 20 2C 33 36 2C 20 32 2C 22 4C 22 2C | ,36, 2,"L",|
00000AE0: 22 30 31 22 00 1D 13 BA 09 83 20 20 31 2C 20 34 |"01"...... 1, 4|
00000AF0: 2C 22 D3 54 52 45 45 54 22 20 20 20 2C 31 31 2C |,".TREET" ,11,|
00000B00: 20 34 2C 22 58 58 58 58 58 41 41 41 41 41 41 41 | 4,"XXXXXAAAAAAA|
00000B10: 41 41 41 41 41 41 41 41 41 22 2C 22 22 00 51 13 |AAAAAAAAA","".Q.|
00000B20: C4 09 83 20 20 31 2C 20 35 2C 22 D4 4F 57 4E 22 |... 1, 5,".OWN"|
00000B30: 20 20 20 20 20 2C 31 31 2C 20 35 2C 22 C1 41 41 | ,11, 5,".AA|
00000B40: 41 41 41 41 41 41 41 41 41 41 41 41 41 22 2C 22 |AAAAAAAAAAAAA","|
00000B50: 22 00 7C 13 CE 09 83 20 20 31 2C 20 36 2C 22 D0 |".|.... 1, 6,".|
00000B60: 4F 53 54 43 4F 44 45 22 20 2C 31 31 2C 20 36 2C |OSTCODE" ,11, 6,|
00000B70: 22 C1 58 58 20 58 C1 C1 22 2C 22 22 00 A8 13 D8 |".XX X..",""....|
00000B80: 09 83 20 20 31 2C 20 38 2C 22 C4 2E CF 2E C2 22 |.. 1, 8,"....."|
00000B90: 20 20 20 20 2C 31 31 2C 20 38 2C 22 39 39 2F 39 | ,11, 8,"99/9|
00000BA0: 39 2F 39 39 22 2C 22 22 00 D0 13 E2 09 83 20 20 |9/99",""...... |
00000BB0: 31 2C 31 30 2C 22 C8 45 49 47 48 54 22 20 20 20 |1,10,".EIGHT" |
00000BC0: 2C 31 31 2C 31 30 2C 22 39 2E 39 39 22 2C 22 22 |,11,10,"9.99",""|
00000BD0: 00 F9 13 EC 09 83 20 32 34 2C 31 30 2C 22 D7 45 |...... 24,10,".E|
00000BE0: 49 47 48 54 22 20 20 20 2C 33 33 2C 31 30 2C 22 |IGHT" ,33,10,"|
00000BF0: 39 39 2E 39 39 22 2C 22 22 00 22 14 F6 09 83 20 |99.99","".".... |
00000C00: 20 31 2C 31 32 2C 22 D3 41 4C 41 52 59 22 20 20 | 1,12,".ALARY" |
00000C10: 20 2C 31 31 2C 31 32 2C 22 39 39 39 39 39 22 2C | ,11,12,"99999",|
00000C20: 22 22 00 53 14 00 0A 83 20 20 31 2C 31 34 2C 22 |"".S.... 1,14,"|
00000C30: CE C9 20 4E 55 4D 42 45 52 22 2C 31 31 2C 31 34 |.. NUMBER",11,14|
00000C40: 2C 22 C1 C1 20 39 39 20 39 39 20 39 39 20 C1 22 |,".. 99 99 99 ."|
00000C50: 2C 22 22 00 78 14 0A 0A 83 20 20 31 2C 31 36 2C |,"".x.... 1,16,|
00000C60: 22 CE 4F 54 45 53 2D 22 20 20 20 2C 20 31 2C 31 |".OTES-" , 1,1|
00000C70: 37 2C 22 20 22 2C 22 22 00 7E 14 14 0A 3A 00 A6 |7," ","".~...:..|
00000C80: 14 1E 0A 8F 20 2A 20 50 52 49 43 45 20 44 41 54 |.... * PRICE DAT|
00000C90: 41 20 46 4F 52 20 50 52 49 4E 54 20 55 53 49 4E |A FOR PRINT USIN|
00000CA0: 47 20 44 45 4D 4F 00 C7 14 28 0A 83 20 30 2C 31 |G DEMO...(.. 0,1|
00000CB0: 2E 39 39 2C 33 2E 39 39 2C 35 2E 39 39 2C 37 2E |.99,3.99,5.99,7.|
00000CC0: 39 39 2C 39 2E 39 39 00 E5 14 32 0A 83 20 31 31 |99,9.99...2.. 11|
00000CD0: 2E 39 39 2C 31 34 2E 39 39 2C 31 39 2E 39 39 2C |.99,14.99,19.99,|
00000CE0: 32 31 2C 32 39 00 00 00 |21,29... |
.. ....53280,14:.646,14:.53281,6.B...A.A
.1:.A.1.."XINOUT.CODE",8,1.W.... *******
*******.L.... * XINOUTDEMO *...... *****
*********.....:...... * ILLUSTRATES THE
ENHANCEMENTS.S.... * AND MODIFICATIONS T
O THE BASIC...$.. * INPUT ROUTINES.....:
...8.. * DECLARE VARIABLES.(.B.I.0 : . C
OUNTER FOR INPUT.H.L.ID.0: . COUNTER FOR
DISPLAY.L.V.NU.12 : . NO. OF 'USING' IN
PUTS...[.PU.4 : . NO. OF 'USING' PAGES..
.`.IP.0 : . COUNTER FOR PRINT USING...J.
NP.10 : . NO. OF PRINT USING INPUTS...T.
CST.0 : . COST OF ITEM...~.TTL.0 : . TOT
AL COST./...MAX.0 : . MAX INPUT COUNTER.
E...MSG$."? FOR HELP".M.... X(NU),Y(NU)
: . INPUT COORDINATES...... PX(NU),PY(NU
) : . PROMPT COORDINATES...D.. PU$(NU) :
. 'USING' PROMPTS.Y.N.. U$(NU) : . 'USI
NG' MASKS...X.. IU$(PU,NU) : . 'USING' V
ARIABLES.%.... IN$(NU) : . 'USING' IN-ST
RINGS.F.... QTY(NP),PRICE(NP),CST$(NP).L
...:.A.... * MAIN PROGRAM...... 49152 :
. INITIALISE ENHANCEMENT.....&. ".?.....
..."...F.. G(14);G(8) : . SET CBM MODE.I
.P.. 1410.T.Z.. 1710.Z.D.:...N.....X.:..
.... * 'USING' DEMO...... 2460... .&. X.
1 . NU.4... . PX(&X),PY(&X),PU$(&X).W..
. . X(&X),Y(&X),U$(&X),IN$(&X).I... &.
Y.1 . PU..... IU$(&Y,&X).&.C(U$(&X)))
...R. U$(NU).&D(78,"#")..... IU$(&Y,
NU).&.78).D... &. Y.M...&. X.....&. P.1
. PU...... 1610:. DISPLAY INPUT PAGE...
..&. I.1 . NU.3...@ X(&I),Y(&I) : . POSI
TION CURSOR.C...&.(IN$(&I)).^.... .(U$(&
I)),IU$(&P,&I).X...&. I : . UPDATE FIELD
...".&. P : . UPDATE PAGE...,.....6.:...
@.. * DISPLAY INPUT PAGE.E.J.. G(147)...
L.MSG$."? FOR HELP:CTRL N(EXT):CTRL P(RE
VIOUS)"...N.@ 0,24 MSG$;. .P.@ 30,0 ".PA
GE. ";&P.0.T.&. X.1 . NU.P.^. @ PX(&X),
PY(&X) . PU$(&X).M.H. @ X(&X).1,Y(&X) .
":";...R. . IU$(&P,&X);...|. . ":"...
..&. X...........:...... * PRINT USING D
EMO.H.... " ,.\".W.L.. I.0 . NP...V.. PR
ICE(I).....CST$(I)." 0.00".....QTY(I)
.0......./.... 1940 : . DISPLAY SCREEN.
@...&C(3) E"9".0.P...&. I.1 . NP.I...@ 1
0,2.&I . ,QTY(&I)...&.@ 10,2.&I : ."###"
;QTY(&I)...0.CST.QTY(&I).PRICE(&I).C.:.C
ST$(&I).&.$("#####.##",CST)...D.@ 20,2.&
I . CST$(&I)...N.. 2030 : . ADJUST TOTAL
...X.@ 18,2.NP.3 . CST$(0)...B.&. I.!.V.
..'...:.H.... * DISPLAY PRINT USING DATA
.U.... G(147).V...@ 8,1 "QUANT.
COST"...... ID.1 . NP.....@ 1,ID.2 : ."
##.##";PRICE(ID).P...@ 9,ID.2 ":";&.$("#
##",QTY(ID));":"...... @ 20,ID.2 CST$(ID
).........F.. @ 18,2.NP.3 CST$(0)...P...
..Z.:.7.... * ADJUST PRINT USING TOTALS.
A...TTL.0.Q...&. Y.1 . NP.I...TTL.TTL.E(
CST$(&Y)).R...&. Y.....CST$(0).&.$("####
###.##",TTL)... ... .*.:...... * PRINT M
ESSAGE.O.8.@ 0,24 ".".MSG$.".";...B.@ 0,
0 .,...L.@ 0,24 &.C(MSG$));...V.....`.:.
..J.. * PRESS RETURN.1.T.@ 0,0 . "PRESS
RETURN ",.7.~...=...:.[.... * DATA FOR '
USING' DEMO...... 1, 1,"FORENAME" ,11,
1,"AAAAAAAAAA",""...... 1, 2,"SURNAME"
,11, 2,"AAAAAAAAAAAAAAAA",""...... 30,
2,"SEX" ,36, 2,"L","01"...... 1, 4
,"STREET" ,11, 4,"XXXXXAAAAAAAAAAAAAAA
A","".Q.D.. 1, 5,"TOWN" ,11, 5,"AAA
AAAAAAAAAAAAA","".|.N.. 1, 6,"POSTCODE"
,11, 6,"AXX XAA",""...X.. 1, 8,"D.O.B"
,11, 8,"99/99/99","".P.... 1,10,"HE
IGHT" ,11,10,"9.99",""...... 24,10,"WE
IGHT" ,33,10,"99.99","".".... 1,12,"S
ALARY" ,11,12,"99999","".S.... 1,14,"
NI NUMBER",11,14,"AA 99 99 99 A","".X...
. 1,16,"NOTES-" , 1,17," ","".~...:..
.... * PRICE DATA FOR PRINT USING DEMO.G
.(.. 0,1.99,3.99,5.99,7.99,9.99...2.. 11
.99,14.99,19.99,21,29...
> CLICK IMAGE PREVIEW FOR FULL MODAL