SIZE.PRG
FILE INFORMATION
FILENAME(S): SIZE.PRG
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
aaed7b58bc818c049adc7941077cc1e707425516a4d1a08ca5ede232372a907b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| Y | SIZE.PRG | PRG | Sailor, Ganheden | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 00 00 8B C2 28 36 36 39 29 B3 B1 33 |........(669)..3|
00000010: A7 36 33 30 30 30 00 2B 08 01 00 8F 20 53 54 41 |.63000.+.... STA|
00000020: 52 54 20 4F 46 20 42 41 53 49 43 00 5A 08 0A 00 |RT OF BASIC.Z...|
00000030: 99 22 93 11 11 1D 1D 12 43 41 44 50 41 4B 2D 36 |."......CADPAK-6|
00000040: 34 20 50 52 49 4E 54 4F 55 54 20 53 49 5A 49 4E |4 PRINTOUT SIZIN|
00000050: 47 20 50 52 4F 47 52 41 4D 22 00 86 08 14 00 99 |G PROGRAM"......|
00000060: 22 11 1D 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM |
00000070: 57 49 4C 4C 20 50 52 49 4E 54 20 4F 55 54 20 41 |WILL PRINT OUT A|
00000080: 20 53 4D 41 4C 4C 00 B2 08 1E 00 99 22 1D 41 4E | SMALL......".AN|
00000090: 44 20 41 20 4C 41 52 47 45 20 42 4F 58 20 4F 4E |D A LARGE BOX ON|
000000A0: 20 59 4F 55 52 20 50 52 49 4E 54 45 52 2E 20 59 | YOUR PRINTER. Y|
000000B0: 4F 55 00 DE 08 28 00 99 22 20 57 49 4C 4C 20 48 |OU...(.." WILL H|
000000C0: 41 56 45 20 54 4F 20 4D 45 41 53 55 52 45 20 54 |AVE TO MEASURE T|
000000D0: 48 45 20 53 49 5A 45 20 4F 46 20 54 48 45 00 08 |HE SIZE OF THE..|
000000E0: 09 32 00 99 22 20 42 4F 58 45 53 20 41 4E 44 20 |.2.." BOXES AND |
000000F0: 4B 45 59 20 54 48 45 20 53 49 5A 45 20 49 4E 46 |KEY THE SIZE INF|
00000100: 4F 52 4D 41 54 49 4F 4E 00 30 09 3C 00 99 22 20 |ORMATION.0.<.." |
00000110: 49 4E 54 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 |INTO THE COMPUTE|
00000120: 52 20 53 4F 20 41 20 50 45 52 4D 41 4E 45 4E 54 |R SO A PERMANENT|
00000130: 00 5A 09 46 00 99 22 20 52 45 43 4F 52 44 20 4F |.Z.F.." RECORD O|
00000140: 46 20 54 48 45 20 53 49 5A 45 53 20 43 41 4E 20 |F THE SIZES CAN |
00000150: 42 45 20 57 52 49 54 54 45 4E 00 79 09 50 00 99 |BE WRITTEN.y.P..|
00000160: 22 20 4F 4E 20 54 48 45 20 43 41 44 50 41 4B 20 |" ON THE CADPAK |
00000170: 44 49 53 4B 45 54 54 45 2E 00 9B 09 64 00 99 22 |DISKETTE....d.."|
00000180: 11 11 1D 12 50 52 45 53 53 20 41 4E 59 20 4B 45 |....PRESS ANY KE|
00000190: 59 20 54 4F 20 53 54 41 52 54 22 00 AE 09 65 00 |Y TO START"...e.|
000001A0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 00 D8 |.A$:.A$."".101..|
000001B0: 09 66 00 85 22 11 11 44 45 56 49 43 45 20 4E 55 |.f.."..DEVICE NU|
000001C0: 4D 42 45 52 20 4F 46 20 59 4F 55 52 20 50 52 49 |MBER OF YOUR PRI|
000001D0: 4E 54 45 52 22 3B 50 44 00 03 0A 67 00 99 22 11 |NTER";PD...g..".|
000001E0: 49 46 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |IF YOUR PRINTER |
000001F0: 49 53 20 41 20 43 42 4D 20 31 35 32 35 2C 20 31 |IS A CBM 1525, 1|
00000200: 35 32 36 00 25 0A 68 00 99 22 20 4D 50 53 20 38 |526.%.h.." MPS 8|
00000210: 30 31 20 4F 52 20 4F 4B 49 4D 41 54 45 20 31 30 |01 OR OKIMATE 10|
00000220: 2C 20 54 48 45 00 4D 0A 69 00 99 22 20 56 41 4C |, THE.M.i.." VAL|
00000230: 55 45 53 20 46 4F 52 20 53 45 43 4F 4E 44 41 52 |UES FOR SECONDAR|
00000240: 59 20 41 44 44 52 45 53 53 20 41 4E 44 00 6C 0A |Y ADDRESS AND.l.|
00000250: 6A 00 99 22 20 54 52 41 4E 53 4C 41 54 45 20 44 |j.." TRANSLATE D|
00000260: 4F 4E 27 54 20 4D 41 54 54 45 52 2E 00 99 0A 71 |ON'T MATTER....q|
00000270: 00 85 22 53 45 43 4F 4E 44 41 52 59 20 41 44 44 |.."SECONDARY ADD|
00000280: 52 45 53 53 20 46 4F 52 20 59 4F 55 52 20 50 52 |RESS FOR YOUR PR|
00000290: 49 4E 54 45 52 22 3B 53 43 00 C4 0A 72 00 85 22 |INTER";SC...r.."|
000002A0: 41 53 43 49 49 20 54 52 41 4E 53 4C 41 54 45 20 |ASCII TRANSLATE |
000002B0: 46 4F 52 20 59 4F 55 52 20 50 52 49 4E 54 45 52 |FOR YOUR PRINTER|
000002C0: 22 3B 41 54 00 CD 0A 78 00 DB 31 2C 37 00 E1 0A |";AT...x..1,7...|
000002D0: 82 00 CE 20 30 2C 30 2C 33 31 39 2C 31 39 39 2C |... 0,0,319,199,|
000002E0: 32 00 00 0B 8C 00 D8 32 2C 30 2C 34 30 2C 32 2C |2......2,0,40,2,|
000002F0: 22 5F 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 41 |"_ MEASUREMENT A|
00000300: 00 23 0B 96 00 D8 32 2C 35 30 2C 31 39 35 2C 32 |.#....2,50,195,2|
00000310: 2C 22 5E 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 |,"^ MEASUREMENT |
00000320: 42 20 5E 00 40 0B A0 00 D4 3A 99 22 20 50 52 49 |B ^.@....:." PRI|
00000330: 4E 54 49 4E 47 20 53 4D 41 4C 4C 20 53 49 5A 45 |NTING SMALL SIZE|
00000340: 00 4F 0B AA 00 FD 34 2C 30 2C 53 43 2C 41 54 00 |.O....4,0,SC,AT.|
00000350: 6C 0B B4 00 D4 3A 99 22 20 50 52 49 4E 54 49 4E |l....:." PRINTIN|
00000360: 47 20 4C 41 52 47 45 20 53 49 5A 45 00 7B 0B BE |G LARGE SIZE.{..|
00000370: 00 FD 34 2C 31 2C 53 43 2C 41 54 00 A8 0B C8 00 |..4,1,SC,AT.....|
00000380: D4 3A 99 22 93 20 11 11 4E 4F 57 20 53 45 4C 45 |.:.". ..NOW SELE|
00000390: 43 54 20 43 45 4E 54 49 4D 45 54 45 52 53 20 4F |CT CENTIMETERS O|
000003A0: 52 20 49 4E 43 48 45 53 00 C6 0B D2 00 99 22 41 |R INCHES......"A|
000003B0: 53 20 59 4F 55 52 20 4D 45 41 53 55 52 49 4E 47 |S YOUR MEASURING|
000003C0: 20 55 4E 49 54 22 00 DA 0B DC 00 99 22 50 52 45 | UNIT"......"PRE|
000003D0: 53 53 20 43 20 4F 52 20 49 22 00 F9 0B E6 00 A1 |SS C OR I"......|
000003E0: 41 24 3A 8B 20 41 24 B3 B1 22 43 22 AF 20 41 24 |A$:. A$.."C". A$|
000003F0: B3 B1 22 49 22 A7 32 33 30 00 17 0C F0 00 44 4D |.."I".230.....DM|
00000400: 24 B2 22 49 4E 22 3A 8B 41 24 B2 22 43 22 A7 44 |$."IN":.A$."C".D|
00000410: 4D 24 B2 22 43 4D 22 00 3E 0C FA 00 99 22 11 4E |M$."CM".>....".N|
00000420: 4F 57 20 4D 45 41 53 55 52 45 20 54 48 45 20 4C |OW MEASURE THE L|
00000430: 45 4E 47 54 48 53 20 20 4F 46 20 54 48 45 00 60 |ENGTHS OF THE.`|
00000440: 0C 04 01 99 22 42 4F 58 20 4F 4E 20 54 48 45 20 |...."BOX ON THE |
00000450: 12 53 4D 41 4C 4C 92 20 50 52 49 4E 54 4F 55 54 |.SMALL. PRINTOUT|
00000460: 00 89 0C 0E 01 99 22 12 53 4D 41 4C 4C 92 20 4D |......".SMALL. M|
00000470: 45 41 53 55 52 45 4D 45 4E 54 20 41 22 3A 8D 32 |EASUREMENT A":.2|
00000480: 30 30 30 3A 53 31 B2 56 49 00 B2 0C 18 01 99 22 |000:S1.VI......"|
00000490: 12 53 4D 41 4C 4C 92 20 4D 45 41 53 55 52 45 4D |.SMALL. MEASUREM|
000004A0: 45 4E 54 20 42 22 3A 8D 32 30 30 30 3A 53 32 B2 |ENT B":.2000:S2.|
000004B0: 56 49 00 C2 0C 22 01 99 22 41 3D 22 53 31 3B 44 |VI...".."A="S1;D|
000004C0: 4D 24 00 D2 0C 2C 01 99 22 42 3D 22 53 32 3B 44 |M$...,.."B="S2;D|
000004D0: 4D 24 00 EF 0C 36 01 99 22 49 53 20 54 48 49 53 |M$...6.."IS THIS|
000004E0: 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 00 | CORRECT? (Y/N).|
000004F0: 0C 0D 40 01 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 |..@..A$:.A$.."Y"|
00000500: AF 41 24 B3 B1 22 4E 22 A7 33 32 30 00 1C 0D 4A |.A$.."N".320...J|
00000510: 01 8B 41 24 B2 22 4E 22 A7 32 37 30 00 43 0D C2 |..A$."N".270.C..|
00000520: 01 99 22 11 4E 4F 57 20 4D 45 41 53 55 52 45 20 |..".NOW MEASURE |
00000530: 54 48 45 20 4C 45 4E 47 54 48 53 20 20 4F 46 20 |THE LENGTHS OF |
00000540: 54 48 45 00 65 0D CC 01 99 22 42 4F 58 20 4F 4E |THE.e...."BOX ON|
00000550: 20 54 48 45 20 12 4C 41 52 47 45 92 20 50 52 49 | THE .LARGE. PRI|
00000560: 4E 54 4F 55 54 00 8E 0D D6 01 99 22 12 4C 41 52 |NTOUT......".LAR|
00000570: 47 45 92 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 |GE. MEASUREMENT |
00000580: 41 22 3A 8D 32 30 30 30 3A 4C 31 B2 56 49 00 B7 |A":.2000:L1.VI..|
00000590: 0D E0 01 99 22 12 4C 41 52 47 45 92 20 4D 45 41 |....".LARGE. MEA|
000005A0: 53 55 52 45 4D 45 4E 54 20 42 22 3A 8D 32 30 30 |SUREMENT B":.200|
000005B0: 30 3A 4C 32 B2 56 49 00 C7 0D EA 01 99 22 41 3D |0:L2.VI......"A=|
000005C0: 22 4C 31 3B 44 4D 24 00 D7 0D F4 01 99 22 42 3D |"L1;DM$......"B=|
000005D0: 22 4C 32 3B 44 4D 24 00 F4 0D FE 01 99 22 49 53 |"L2;DM$......"IS|
000005E0: 20 54 48 49 53 20 43 4F 52 52 45 43 54 3F 20 28 | THIS CORRECT? (|
000005F0: 59 2F 4E 29 00 11 0E 08 02 A1 41 24 3A 8B 41 24 |Y/N)......A$:.A$|
00000600: B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 35 32 |.."Y".A$.."N".52|
00000610: 30 00 21 0E 12 02 8B 41 24 B2 22 4E 22 A7 34 37 |0.!....A$."N".47|
00000620: 30 00 4C 0E 58 02 99 22 93 11 20 4E 4F 57 20 59 |0.L.X..".. NOW Y|
00000630: 4F 55 20 4D 55 53 54 20 52 45 4D 4F 56 45 20 54 |OU MUST REMOVE T|
00000640: 48 45 20 43 41 44 50 41 4B 2D 36 34 00 71 0E 62 |HE CADPAK-64.q.b|
00000650: 02 99 22 20 44 49 53 4B 45 54 54 45 20 46 52 4F |.." DISKETTE FRO|
00000660: 4D 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 |M THE DISK DRIVE|
00000670: 2E 00 9C 0E 6C 02 99 22 20 54 48 45 4E 20 52 45 |....l.." THEN RE|
00000680: 4D 4F 56 45 20 54 48 45 20 53 4D 41 4C 4C 20 50 |MOVE THE SMALL P|
00000690: 49 45 43 45 20 4F 46 20 54 41 50 45 00 C7 0E 6E |IECE OF TAPE...n|
000006A0: 02 99 22 20 43 4F 56 45 52 49 4E 47 20 54 48 45 |.." COVERING THE|
000006B0: 20 57 52 49 54 45 2D 50 52 4F 54 45 43 54 49 4F | WRITE-PROTECTIO|
000006C0: 4E 20 4E 4F 54 43 48 00 DF 0E 70 02 99 22 20 4F |N NOTCH...p.." O|
000006D0: 4E 20 54 48 45 20 44 49 53 4B 45 54 54 45 2E 00 |N THE DISKETTE..|
000006E0: 0A 0F 72 02 99 22 11 20 4E 4F 57 20 12 54 55 52 |..r..". NOW .TUR|
000006F0: 4E 20 54 48 45 20 44 49 53 4B 45 54 54 45 20 4F |N THE DISKETTE O|
00000700: 56 45 52 20 53 4F 20 54 48 45 00 32 0F 74 02 99 |VER SO THE.2.t..|
00000710: 22 20 12 4C 41 42 45 4C 20 49 53 20 55 50 92 20 |" .LABEL IS UP. |
00000720: 41 4E 44 20 49 4E 53 45 52 54 20 49 54 20 49 4E |AND INSERT IT IN|
00000730: 54 4F 00 53 0F 8A 02 99 22 20 54 48 45 20 44 49 |TO.S...." THE DI|
00000740: 53 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 20 |SK DRIVE DEVICE |
00000750: 23 38 2E 00 7E 0F 94 02 99 22 20 54 48 45 20 4D |#8..~...." THE M|
00000760: 45 41 53 55 52 45 4D 45 4E 54 53 20 57 49 4C 4C |EASUREMENTS WILL|
00000770: 20 42 45 20 57 52 49 54 54 45 4E 20 54 4F 00 93 | BE WRITTEN TO..|
00000780: 0F 9E 02 99 22 20 54 48 45 20 44 49 53 4B 45 54 |...." THE DISKET|
00000790: 54 45 2E 00 AD 0F BC 02 99 22 11 20 50 52 45 53 |TE.......". PRES|
000007A0: 53 20 59 20 54 4F 20 53 54 41 52 54 22 00 C2 0F |S Y TO START"...|
000007B0: C6 02 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 37 |...A$:.A$.."Y".7|
000007C0: 31 30 00 CF 0F CB 02 9F 31 35 2C 38 2C 31 35 00 |10......15,8,15.|
000007D0: EB 0F D0 02 9F 20 38 2C 38 2C 32 2C 22 40 30 3A |..... 8,8,2,"@0:|
000007E0: 53 2E 53 49 5A 45 2C 53 2C 57 22 00 01 10 DA 02 |S.SIZE,S,W".....|
000007F0: 8D 39 30 30 3A 8B 45 41 B1 31 39 A7 89 31 30 30 |.900:.EA.19..100|
00000800: 30 00 17 10 DF 02 98 38 2C 50 44 3A 98 38 2C 53 |0......8,PD:.8,S|
00000810: 43 3A 98 38 2C 41 54 00 22 10 E4 02 98 38 2C 44 |C:.8,AT."....8,D|
00000820: 4D 24 00 4E 10 F7 02 98 38 2C 53 32 AD 33 32 30 |M$.N....8,S2.320|
00000830: 3A 98 38 2C 53 31 AD 32 30 30 3A 98 38 2C 4C 32 |:.8,S1.200:.8,L2|
00000840: AD 33 32 30 3A 98 38 2C 4C 31 AD 32 30 30 00 57 |.320:.8,L1.200.W|
00000850: 10 02 03 8D 39 30 30 00 6D 10 07 03 8D 39 30 30 |....900.m....900|
00000860: 3A 8B 45 41 B1 31 39 A7 89 31 30 30 30 00 74 10 |:.EA.19..1000.t.|
00000870: 08 03 A0 38 00 9D 10 09 03 D4 3A 99 22 20 4E 4F |...8......:." NO|
00000880: 57 20 43 4F 4C 4C 45 43 54 49 4E 47 20 54 48 45 |W COLLECTING THE|
00000890: 20 44 49 53 4B 20 28 4D 49 4E 55 54 45 00 AE 10 | DISK (MINUTE...|
000008A0: 0A 03 99 22 20 20 4F 52 20 54 57 4F 29 2E 00 BF |..." OR TWO)...|
000008B0: 10 0B 03 98 31 35 2C 22 56 30 22 3A A0 31 35 00 |....15,"V0":.15.|
000008C0: D2 10 16 03 99 22 93 11 11 1D 46 49 4E 49 53 48 |....."....FINISH|
000008D0: 45 44 00 FB 10 20 03 99 22 11 4E 4F 57 20 52 45 |ED... ..".NOW RE|
000008E0: 4D 4F 56 45 20 54 48 45 20 43 41 44 50 41 4B 2D |MOVE THE CADPAK-|
000008F0: 36 34 20 44 49 53 4B 45 54 54 45 00 20 11 2A 03 |64 DISKETTE. .*.|
00000900: 99 22 46 52 4F 4D 20 54 48 45 20 44 52 49 56 45 |."FROM THE DRIVE|
00000910: 20 41 4E 44 20 52 45 50 4C 41 43 45 20 54 48 45 | AND REPLACE THE|
00000920: 00 4D 11 34 03 99 22 54 41 50 45 20 4F 56 45 52 |.M.4.."TAPE OVER|
00000930: 20 54 48 45 20 57 52 49 54 45 2D 50 52 4F 54 45 | THE WRITE-PROTE|
00000940: 43 54 49 4F 4E 20 4E 4F 54 43 48 2E 22 00 75 11 |CTION NOTCH.".u.|
00000950: 35 03 99 22 11 50 52 45 53 53 20 41 4E 59 20 4B |5..".PRESS ANY K|
00000960: 45 59 20 54 4F 20 52 45 53 45 54 20 43 4F 4D 50 |EY TO RESET COMP|
00000970: 55 54 45 52 2E 00 A2 11 36 03 99 22 11 53 45 45 |UTER....6..".SEE|
00000980: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 4F | INSTRUCTIONS FO|
00000990: 52 20 4C 4F 41 44 49 4E 47 20 43 41 44 50 41 4B |R LOADING CADPAK|
000009A0: 2E 22 00 B5 11 37 03 A1 41 24 3A 8B 41 24 B2 22 |."...7..A$:.A$."|
000009B0: 22 A7 38 32 33 00 C0 11 38 03 9E 36 34 37 33 38 |".823...8..64738|
000009C0: 00 C6 11 3E 03 80 00 DE 11 84 03 84 31 35 2C 45 |...>........15,E|
000009D0: 41 24 2C 45 42 24 2C 45 43 24 2C 45 44 24 00 EE |A$,EB$,EC$,ED$..|
000009E0: 11 8E 03 45 41 B2 C5 28 45 41 24 29 3A 8E 00 01 |...EA..(EA$):...|
000009F0: 12 E8 03 99 22 44 49 53 4B 20 50 52 4F 42 4C 45 |...."DISK PROBLE|
00000A00: 4D 00 16 12 F2 03 99 45 41 24 3B 45 42 24 3B 45 |M......EA$;EB$;E|
00000A10: 43 24 3B 45 44 24 00 3B 12 FC 03 99 22 43 4F 52 |C$;ED$.;...."COR|
00000A20: 52 45 43 54 20 50 52 4F 42 4C 45 4D 20 41 4E 44 |RECT PROBLEM AND|
00000A30: 20 50 52 45 53 53 20 59 20 54 4F 00 4D 12 06 04 | PRESS Y TO.M...|
00000A40: 99 22 52 45 54 52 59 20 44 49 53 4B 22 00 64 12 |."RETRY DISK".d.|
00000A50: 10 04 A1 20 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 |... A$:.A$.."Y".|
00000A60: 31 30 34 30 00 71 12 1A 04 A0 31 35 3A 89 37 31 |1040.q....15:.71|
00000A70: 35 00 8E 12 D0 07 8F 20 49 4E 50 55 54 20 46 4F |5...... INPUT FO|
00000A80: 52 20 49 4E 43 48 45 53 20 4F 52 20 43 4D 00 A1 |R INCHES OR CM..|
00000A90: 12 DA 07 8B 44 4D 24 B2 22 49 4E 22 A7 33 30 30 |....DM$."IN".300|
00000AA0: 30 00 C9 12 E4 07 56 49 B2 30 3A 85 22 43 45 4E |0.....VI.0:."CEN|
00000AB0: 54 49 4D 45 54 45 52 53 20 49 4E 20 44 45 43 49 |TIMETERS IN DECI|
00000AC0: 4D 41 4C 22 3B 56 49 3A 8E 00 E5 12 B8 0B 57 49 |MAL";VI:......WI|
00000AD0: B2 30 3A 85 22 57 48 4F 4C 45 20 49 4E 43 48 45 |.0:."WHOLE INCHE|
00000AE0: 53 22 3B 57 49 00 06 13 C2 0B 46 52 B2 30 3A 85 |S";WI.....FR.0:.|
00000AF0: 22 46 52 41 43 54 49 4F 4E 20 49 4E 20 33 32 4E |"FRACTION IN 32N|
00000B00: 44 53 22 3B 46 52 00 35 13 CC 0B 99 22 11 59 4F |DS";FR.5....".YO|
00000B10: 55 20 45 4E 54 45 52 45 44 22 57 49 3B 46 52 22 |U ENTERED"WI;FR"|
00000B20: 9D 2F 33 32 22 3A 56 49 B2 57 49 AA 46 52 AD 33 |./32":VI.WI.FR.3|
00000B30: 32 3A 99 3A 8E 00 46 13 17 F6 90 3A 80 20 4F 46 |2:.:..F....:. OF|
00000B40: 20 42 41 53 49 43 00 58 13 18 F6 97 36 36 39 2C | BASIC.X....669,|
00000B50: C2 28 36 36 39 29 AA 31 00 76 13 1A F6 91 C2 28 |.(669).1.v.....(|
00000B60: 36 36 39 29 89 36 33 30 30 35 2C 36 33 30 31 35 |669).63005,63015|
00000B70: 2C 36 33 30 32 30 00 91 13 1D F6 99 22 93 11 11 |,63020......"...|
00000B80: 22 2C 22 20 20 05 12 43 41 44 50 41 4B 2D 36 34 |"," ..CADPAK-64|
00000B90: 22 00 C8 13 1E F6 99 2C 22 11 53 45 4C 45 43 54 |"......,".SELECT|
00000BA0: 20 50 52 49 4E 54 45 52 3A 22 3A 99 2C 22 11 20 | PRINTER:":.,". |
00000BB0: 31 3D 20 45 50 53 4F 4E 22 3A 99 2C 22 20 32 3D |1= EPSON":.," 2=|
00000BC0: 20 4F 4B 49 44 41 54 41 00 F6 13 1F F6 99 2C 22 | OKIDATA......,"|
00000BD0: 20 33 3D 20 43 42 4D 20 31 35 32 35 2F 4D 50 53 | 3= CBM 1525/MPS|
00000BE0: 38 30 31 22 3A 99 2C 22 20 34 3D 20 50 52 4F 57 |801":.," 4= PROW|
00000BF0: 52 49 54 45 52 22 00 20 14 20 F6 99 2C 22 20 35 |RITER". . ..," 5|
00000C00: 3D 20 43 42 4D 20 31 35 32 36 22 3A 99 2C 22 20 |= CBM 1526":.," |
00000C10: 36 3D 20 53 49 45 4D 45 4E 53 20 50 54 38 38 22 |6= SIEMENS PT88"|
00000C20: 00 53 14 21 F6 99 2C 22 20 37 3D 20 4F 4B 49 4D |.S.!..," 7= OKIM|
00000C30: 41 54 45 20 31 30 20 42 2F 57 22 3A 99 2C 22 20 |ATE 10 B/W":.," |
00000C40: 38 3D 20 4F 4B 49 4D 41 54 45 20 31 30 20 43 4F |8= OKIMATE 10 CO|
00000C50: 4C 4F 52 00 91 14 22 F6 99 2C 22 20 39 3D 20 50 |LOR..."..," 9= P|
00000C60: 52 4F 57 52 49 54 45 52 20 43 4F 4C 4F 52 22 3A |ROWRITER COLOR":|
00000C70: 99 2C 22 31 30 3D 20 45 50 53 4F 4E 20 55 53 45 |.,"10= EPSON USE|
00000C80: 52 20 50 4F 52 54 22 3A 99 2C 22 11 22 3B 3A 85 |R PORT":.,".";:.|
00000C90: 41 00 B0 14 23 F6 8B 41 B3 31 31 AF 41 B1 30 A7 |A...#..A.11.A.0.|
00000CA0: 93 22 56 42 50 52 22 AA C4 28 41 29 2C 38 2C 31 |."VBPR"..(A),8,1|
00000CB0: 00 BB 14 24 F6 89 36 33 30 30 35 00 CD 14 27 F6 |...$..63005...'.|
00000CC0: 93 22 56 42 58 58 58 58 22 2C 38 2C 31 00 EB 14 |."VBXXXX",8,1...|
00000CD0: 2C F6 97 33 30 35 38 31 2C 32 20 20 3A 8F 20 42 |,..30581,2 :. B|
00000CE0: 41 53 49 43 20 42 4F 52 44 45 52 00 09 15 2E F6 |ASIC BORDER.....|
00000CF0: 97 33 30 35 38 32 2C 30 20 20 3A 8F 20 42 41 53 |.30582,0 :. BAS|
00000D00: 49 43 20 53 43 52 45 45 4E 00 27 15 2F F6 97 33 |IC SCREEN.'./..3|
00000D10: 30 35 34 38 2C 37 20 20 3A 8F 20 42 41 53 49 43 |0548,7 :. BASIC|
00000D20: 20 43 55 52 53 4F 52 00 48 15 30 F6 97 33 30 35 | CURSOR.H.0..305|
00000D30: 37 33 2C 32 31 20 3A 8F 20 32 31 3D 55 50 20 43 |73,21 :. 21=UP C|
00000D40: 41 53 45 3A 32 33 3D 4C 00 65 15 31 F6 9E 33 30 |ASE:23=L.e.1..30|
00000D50: 34 36 37 3A 9C 3A 89 31 3A 8F 20 49 4E 49 54 20 |467:.:.1:. INIT |
00000D60: 56 42 2D 36 34 00 00 00 |VB-64... |
.......B(669)..3.63000.+.... START OF BA
SIC.Z...."......CADPAK-64 PRINTOUT SIZIN
G PROGRAM"......"..THIS PROGRAM WILL PRI
NT OUT A SMALL......".AND A LARGE BOX ON
YOUR PRINTER. YOU...(.." WILL HAVE TO M
EASURE THE SIZE OF THE...2.." BOXES AND
KEY THE SIZE INFORMATION.0.<.." INTO THE
COMPUTER SO A PERMANENT.Z.F.." RECORD O
F THE SIZES CAN BE WRITTEN.Y.P.." ON THE
CADPAK DISKETTE....D.."....PRESS ANY KE
Y TO START"...E..A$:.A$."".101.X.F.."..D
EVICE NUMBER OF YOUR PRINTER";PD...G..".
IF YOUR PRINTER IS A CBM 1525, 1526.%.H.
." MPS 801 OR OKIMATE 10, THE.M.I.." VAL
UES FOR SECONDARY ADDRESS AND.L.J.." TRA
NSLATE DON'T MATTER....Q.."SECONDARY ADD
RESS FOR YOUR PRINTER";SC.D.R.."ASCII TR
ANSLATE FOR YOUR PRINTER";AT.M.X..1,7...
..N 0,0,319,199,2.....X2,0,40,2,"_ MEASU
REMENT A.#...X2,50,195,2,"^ MEASUREMENT
B ^.@. .T:." PRINTING SMALL SIZE.O....4,
0,SC,AT.L...T:." PRINTING LARGE SIZE.{..
..4,1,SC,AT...H.T:.". ..NOW SELECT CENTI
METERS OR INCHES.F.R.."AS YOUR MEASURING
UNIT".Z...."PRESS C OR I"......A$:. A$.
."C". A$.."I".230.....DM$."IN":.A$."C".D
M$."CM".>....".NOW MEASURE THE LENGTHS
OF THE.`...."BOX ON THE .SMALL. PRINTOUT
......".SMALL. MEASUREMENT A":.2000:S1.V
I......".SMALL. MEASUREMENT B":.2000:S2.
VI.B.".."A="S1;DM$.R.,.."B="S2;DM$...6..
"IS THIS CORRECT? (Y/N)...@..A$:.A$.."Y"
.A$.."N".320...J..A$."N".270.C.B..".NOW
MEASURE THE LENGTHS OF THE.E.L.."BOX ON
THE .LARGE. PRINTOUT...V..".LARGE. MEAS
UREMENT A":.2000:L1.VI......".LARGE. MEA
SUREMENT B":.2000:L2.VI.G...."A="L1;DM$.
W...."B="L2;DM$......"IS THIS CORRECT? (
Y/N)......A$:.A$.."Y".A$.."N".520.!....A
$."N".470.L.X..".. NOW YOU MUST REMOVE T
HE CADPAK-64.Q.B.." DISKETTE FROM THE DI
SK DRIVE....L.." THEN REMOVE THE SMALL P
IECE OF TAPE.G.N.." COVERING THE WRITE-P
ROTECTION NOTCH...P.." ON THE DISKETTE..
..R..". NOW .TURN THE DISKETTE OVER SO T
HE.2.T.." .LABEL IS UP. AND INSERT IT IN
TO.S...." THE DISK DRIVE DEVICE #8..~...
." THE MEASUREMENTS WILL BE WRITTEN TO..
...." THE DISKETTE.......". PRESS Y TO S
TART".B.F..A$:.A$.."Y".710.O.K..15,8,15.
..P.. 8,8,2,"@0:S.SIZE,S,W"...Z..900:.EA
.19..1000......8,PD:.8,SC:.8,AT."....8,D
M$.N....8,S2.320:.8,S1.200:.8,L2.320:.8,
L1.200.W....900.M....900:.EA.19..1000.T.
.. 8.....T:." NOW COLLECTING THE DISK (M
INUTE......" OR TWO).......15,"V0": 15.
R...."....FINISHED... ..".NOW REMOVE THE
CADPAK-64 DISKETTE. .*.."FROM THE DRIVE
AND REPLACE THE.M.4.."TAPE OVER THE WRI
TE-PROTECTION NOTCH.".U.5..".PRESS ANY K
EY TO RESET COMPUTER....6..".SEE INSTRUC
TIONS FOR LOADING CADPAK."...7..A$:.A$."
".823...8..64738.F.>........15,EA$,EB$,E
C$,ED$.....EA.E(EA$):......."DISK PROBLE
M......EA$;EB$;EC$;ED$.;...."CORRECT PRO
BLEM AND PRESS Y TO.M...."RETRY DISK".D.
... A$:.A$.."Y".1040.Q... 15:.715...P..
INPUT FOR INCHES OR CM...Z..DM$."IN".300
0.I...VI.0:."CENTIMETERS IN DECIMAL";VI:
......WI.0:."WHOLE INCHES";WI...B.FR.0:.
"FRACTION IN 32NDS";FR.5.L..".YOU ENTERE
D"WI;FR"./32":VI.WI.FR.32:.:..F....:. OF
BASIC.X....669,B(669).1.V....B(669).630
05,63015,63020......"..."," ..CADPAK-64
".H....,".SELECT PRINTER:":.,". 1= EPSON
":.," 2= OKIDATA......," 3= CBM 1525/MPS
801":.," 4= PROWRITER". . ..," 5= CBM 15
26":.," 6= SIEMENS PT88".S.!..," 7= OKIM
ATE 10 B/W":.," 8= OKIMATE 10 COLOR...".
.," 9= PROWRITER COLOR":.,"10= EPSON USE
R PORT":.,".";:.A...#..A.11.A.0.."VBPR".
D(A),8,1...$..63005.M.'.."VBXXXX",8,1...
,..30581,2 :. BASIC BORDER......30582,0
:. BASIC SCREEN.'./..30548,7 :. BASIC
CURSOR.H.0..30573,21 :. 21=UP CASE:23=L
.E.1..30467:.:.1:. INIT VB-64...
> CLICK IMAGE PREVIEW FOR FULL MODAL