Notes

Disk info for 240b_The_Big_U.dsk:

File Name: 3d0g_240b_The_Big_U/240b_The_Big_U.dsk
Disk Name: /BIG.U/
Physical Size (bytes): 143360
Free Space (bytes): 5120
Used Space (bytes): 138240
Physical Size (KB): 140
Free Space (KB): 5
Used Space (KB): 135
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 10
Used Blocks: 270
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: -None-
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 51
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 0
Volume Name: BIG.U

Disk directory for 240b_The_Big_U.dsk:

3d0g_240b_The_Big_U/240b_The_Big_U.dsk /BIG.U/
* BIG.U BIN 005 12/02/1985 12/02/1985 2,037 A=$4F8B
* COPYRIGHT.1985 BAS 001 12/02/1985 12/02/1985 446 A=$0801
* RANDY.BRANDT BAS 005 12/02/1985 12/02/1985 1,642 A=$0801
* PRODOS SYS 030 12/02/1985 12/02/1985 14,848 A=$2000
* BASIC.SYSTEM SYS 021 12/02/1985 12/02/1985 10,240 A=$2000
* STARTUP BAS 005 12/02/1985 12/02/1985 1,656 A=$0801
* NOTES BAS 005 12/02/1985 12/02/1985 1,582 A=$0801
* CRT.WRITER BAS 012 12/02/1985 12/02/1985 5,610 A=$0801
* CRT.CODE BIN 003 12/02/1985 12/02/1985 1,020 A=$4EFC
* FILE.MOVER BIN 028 12/02/1985 12/02/1985 13,674 A=$3ACA
* FILEMOVER.SETUP BAS 005 12/02/1985 12/02/1985 1,919 A=$0801
* KEYCAT.80 BIN 008 12/02/1985 12/02/1985 3,299 A=$4000
* KEYCAT.SETUP BAS 007 12/02/1985 12/02/1985 2,651 A=$0801
* APPENDER BIN 003 12/02/1985 12/02/1985 660 A=$4000
* DUMP.40 BIN 003 12/02/1985 12/02/1985 555 A=$4000
* DUMP.80 BIN 003 12/02/1985 12/02/1985 616 A=$4000
* INPUT.40 BIN 003 12/02/1985 12/02/1985 625 A=$4000
* INPUT.80 BIN 003 12/02/1985 12/02/1985 789 A=$4000
* INPUT.SETUP BAS 006 12/02/1985 12/02/1985 2,111 A=$0801
* REM.OVE BIN 003 12/02/1985 12/02/1985 780 A=$4000
* REM.OVE.128 BIN 003 12/02/1985 12/02/1985 895 A=$4000
* SUPER.POKE BIN 001 12/02/1985 12/02/1985 503 A=$4000
* ANYCAT BIN 003 12/02/1985 12/02/1985 846 A=$4000
* COPY BIN 003 12/02/1985 12/02/1985 946 A=$4000
* COPY.1 BIN 004 12/02/1985 12/02/1985 1,253 A=$4000
* DUMP BIN 003 12/02/1985 12/02/1985 750 A=$4000
* EST BIN 003 12/02/1985 12/02/1985 865 A=$4000
* HEX BIN 003 12/02/1985 12/02/1985 697 A=$4000
* HEX.H BIN 003 12/02/1985 12/02/1985 589 A=$4000
* MON BIN 004 12/02/1985 12/02/1985 1,330 A=$4000
* ONLINE BIN 003 12/02/1985 12/02/1985 592 A=$4000
* SEE BIN 003 12/02/1985 12/02/1985 844 A=$4000
* SHOW BIN 003 12/02/1985 12/02/1985 627 A=$4000
* SHOW.WIPE BIN 003 12/02/1985 12/02/1985 830 A=$4000
* XLISTER BIN 005 12/02/1985 12/02/1985 1,665 A=$4000
* BEEPERWORKS BAS 012 12/02/1985 12/02/1985 5,364 A=$0801
* BIGLINER BIN 003 12/02/1985 12/02/1985 754 A=$6000
* CAT.DATER BAS 001 12/02/1985 12/02/1985 289 A=$0801
* CAT.FIXER BAS 009 12/02/1985 12/02/1985 3,926 A=$0801
* CAT.STEPPER BIN 001 12/02/1985 12/02/1985 316 A=$020F
* DATE.SET BIN 003 09/26/1985 12/02/1985 791 A=$4E02
* DISK.COPY.MORE BIN 001 12/02/1985 12/02/1985 258 A=$4000
* ERROR.EDITOR BAS 008 12/02/1985 12/02/1985 3,519 A=$0801
* ERROR.CODE BIN 003 12/02/1985 12/02/1985 986 A=$4800
* RAM.LOAD BIN 001 12/02/1985 12/02/1985 466 A=$4000
* RAM.SAVE BIN 003 12/02/1985 12/02/1985 539 A=$4000
* RAM.SETUP BAS 006 12/02/1985 12/02/1985 2,399 A=$0801
* RENEW BIN 001 12/02/1985 12/02/1985 188 A=$0226
* RUN.COUNTER BAS 003 12/02/1985 12/02/1985 811 A=$0801
* SAVE.40 BIN 001 12/02/1985 12/02/1985 346 A=$4EA6
* SAVE.80 BIN 001 12/02/1985 12/02/1985 512 A=$4E13
ProDOS format; 5,120 bytes free; 138,240 bytes used.

Text found in 240b_The_Big_U.dsk/BIG.U.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 00 C3 2C 54 C0 A2 00 A0 78 BD 00 50 9D 00 04 .C,T@". x=.P...
$000010 BD C0 53 2C 55 C0 9D 00 04 2C 54 C0 EE 99 4F EE =@S,U@.. .,T@n.On
$000020 A2 4F EE 9C 4F D0 03 EE 9D 4F EE 96 4F D0 03 EE "On.OP.n .On.OP.n
$000030 97 4F 88 D0 D5 18 AD 99 4F 69 08 8D 99 4F 8D A2 .O.PU.-. Oi...O."
$000040 4F 90 C5 EE 9A 4F EE A3 4F AD 9A 4F C9 08 90 B8 O.En.On# O-.OI..8
$000050 A9 00 8D A2 4F 8D 99 4F A9 04 8D 9A 4F 8D A3 4F ).."O..O )...O.#O
$000060 A9 00 8D 96 4F A9 50 8D 97 4F A9 C0 8D 9C 4F A9 )...O)P. .O)@..O)
$000070 53 8D 9D 4F 60 DF DF DF DF DF DF DF DF DF DF DF S..O`___ ________
$000080 DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF ________ ________
$000090 DF DF DF DF DF DF DF DF DF DF DF DF A0 A0 A0 A0 ________ ____
$0000A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 20 A0 A0
$0000B0 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000C0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0000D0 A0 A0 A0 20 20 20 20 20 20 20 20 20 20 20 A0 A0
$0000E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$0000F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000100 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000110 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000120 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000130 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000140 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000150 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000160 A0 A0 A0 A0 FC A0 A0 A0 A0 20 20 20 20 A0 20 A0 |
$000170 A0 20 A0 20 20 20 20 A0 A0 A0 A0 20 20 20 20 A0
$000180 20 A0 A0 20 20 20 20 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000190 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 20 A0 A0
$0001A0 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001B0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0001C0 A0 EF F9 E9 E8 A0 C3 A0 B9 B5 A0 E1 E4 A0 F2 EE oyih C 95 ad rn
$0001D0 F4 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 t |
$0001E0 A0 A0 A0 20 A0 A0 20 A0 A0 20 A0 20 A0 A0 A0 A0
$0001F0 A0 A0 A0 20 A0 A0 20 A0 20 A0 A0 20 A0 A0 A0 A0
$000200 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000210 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000220 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000230 A0 A0 A0 A0 A0 A0 A0 A0 A0 E5 E7 E5 C2 EF A0 E9 egeBo i
$000240 F2 A0 EF F4 E1 E5 A0 EE AE A0 A0 A0 A0 A0 A0 A0 r otae n .
$000250 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 20 A0 A0 20 20 |
$000260 20 20 A0 20 20 20 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000270 20 A0 A0 20 A0 20 20 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000280 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000290 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0002B0 A0 A0 A0 A0 B9 B0 CF E4 D4 F7 A0 F6 EE E5 A0 A0 90Od Tw vne
$0002C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$0002D0 A0 A0 A0 20 A0 A0 20 A0 A0 20 A0 20 A0 A0 A0 A0
$0002E0 A0 A0 A0 20 A0 A0 20 A0 20 A0 A0 20 A0 A0 20 A0
$0002F0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000300 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000310 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000320 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 E1 A0 E9 E7 AC C3 a ig,C
$000330 EC E6 F2 E9 A0 B9 B1 B0 A0 A0 A0 A0 A0 A0 A0 A0 lfri 910
$000340 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 20 A0 A0 20 A0 |
$000350 A0 20 A0 20 20 20 20 A0 A0 A0 A0 20 20 20 20 A0
$000360 20 A0 A0 20 20 20 20 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000370 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 20 A0 A0
$000380 A0 A0 A0 20 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000390 A0 A0 A0 A0 FC DF DF DF DF DF DF DF DF DF DF DF |___ ________
$0003A0 DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF ________ ________
$0003B0 DF DF DF DF DF DF DF DF DF DF DF DF FC A0 A0 A0 ________ ____|
$0003C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003E0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0003F0 A0 A0 A0 20 20 20 20 20 20 20 20 20 20 20 A0 A0
$000400 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 A0 |
$000410 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000420 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000430 A0 A0 A0 A0 A0 A0 DF DF DF DF DF DF DF DF DF DF __ ________
$000440 DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF ________ ________
$000450 DF DF DF DF DF DF DF DF DF DF DF DF DF FC A0 A0 ________ _____|
$000460 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$000470 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000480 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000490 A0 A0 A0 A0 20 20 20 20 20 20 20 20 20 20 A0 A0
$0004A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$0004B0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0004C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0004D0 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0004E0 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$0004F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$000500 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000510 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000520 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 20 20 20 20 A0 20 |
$000530 A0 A0 20 A0 20 20 20 A0 A0 A0 A0 20 20 20 20 A0
$000540 A0 20 A0 20 20 20 20 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$000550 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$000560 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000570 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000580 A0 C3 F0 F2 E7 F4 A8 A9 B1 B8 AC D2 EE F9 C2 E1 Cprgt() 18,RnyBa
$000590 E4 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 d |
$0005A0 A0 A0 A0 20 A0 A0 A0 20 A0 A0 20 A0 20 A0 A0 A0
$0005B0 A0 A0 A0 20 A0 A0 20 A0 A0 20 A0 20 A0 A0 A0 A0
$0005C0 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0005D0 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$0005E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$0005F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 C2 E1 EC A0 F2 F3 CD Bal rsM
$000600 E3 EF D3 E6 F7 F2 AC C9 E3 A0 A0 A0 A0 A0 A0 A0 coSfwr,I c
$000610 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 20 A0 A0 A0 20 |
$000620 20 20 20 A0 20 20 A0 A0 A0 A0 A0 20 20 20 20 A0
$000630 A0 20 A0 20 A0 20 20 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$000640 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$000650 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000660 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$000670 A0 A0 A0 A0 B3 B9 A0 EC A0 EF EE C1 E5 F5 A0 A0 39 l onAeu
$000680 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$000690 A0 A0 A0 20 A0 A0 A0 20 A0 A0 20 A0 20 A0 A0 A0
$0006A0 A0 A0 A0 20 A0 A0 20 A0 A0 20 A0 20 A0 A0 20 A0
$0006B0 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0006C0 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$0006D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$0006E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 D3 EE C4 E5 EF A0 SnDeo
$0006F0 E1 E9 EF EE E1 A0 B2 B1 A0 A0 A0 A0 A0 A0 A0 A0 aiona 21
$000700 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 20 A0 A0 A0 20 |
$000710 A0 A0 20 A0 20 20 20 A0 A0 A0 A0 20 20 20 20 A0
$000720 A0 20 A0 20 20 20 20 A0 A0 A0 A0 A0 A0 FC A0 A0 |
$000730 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 20 20 A0 A0
$000740 A0 A0 A0 A0 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000750 A0 A0 A0 A0 A0 FC DF DF DF DF DF DF DF DF DF DF |__ ________
$000760 DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF ________ ________
$000770 DF DF DF DF DF DF DF DF DF DF DF DF DF FC A0 A0 ________ _____|
$000780 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000790 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0007A0 A0 A0 A0 A0 A0 FC A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |
$0007B0 A0 A0 A0 A0 20 20 20 20 20 20 20 20 20 20 A0 A0
$0007C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0007D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0007E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0007F0 A0 A0 A0 A0 A0 .. .. .. .. .. .. .. .. .. .. ..
** END **

Text found in 240b_The_Big_U.dsk/COPYRIGHT.1985.bas:

100 ONERR GOTO 190
110 DIM A(24): PRINT CHR$(21):Q$ = CHR$(34)
120 PRINT CHR$(4)"-SUPER.POKE"
130 FOR J = 1 TO 24: READ A(J): NEXT
140 PRINT : PRINT "PRESS RETURN FOR A "Q$"SUPER.POKE"Q$" DEMO ";: GET X$
150 FOR C = 185 TO 160 STEP -1: REM SEE PEEKS & POKES CHART
160 FOR J = 24 TO 1 STEP -1
170 & POKE A(J):A(J) +39,C
180 NEXT : NEXT : VTAB 23: DEL 120,120: END
190 ER = PEEK(222): IF ER = 16 THEN 300
210 POKE 216,0: RESUME : REM SCREEN ADDRESSES
220 DATA 1024,1152,1280,1408,1536,1664
230 DATA 1792,1920,1064,1192,1320,1448
240 DATA 1576,1704,1832,1960,1104,1232
250 DATA 1360,1488,1616,1744,1872,2000

Text found in 240b_The_Big_U.dsk/CRT.WRITER.bas:

0 ONERR GOTO 8000
5 K1$ = ",D1":K2$ = ",D2"
10 IF PEEK(49048) <128 THEN PRINT "APPLE IIE OR IIC REQUIRED.": END
100 TEXT : POKE 49167,0:CRS = 223:H = 0:ODD = 0:P0 = 49249:Q = -16384:QQ = -16368:SC = 49237:F0 = 128:BF = 22528:BG = 24576
102 BP$ = CHR$(7):D$ = CHR$(4):CR$(1) = "1":CR$(2) = "2"
104 CX = 25072:QUIT = 25285: DEF FN MEM(H) = H - INT(H/2) *2: DEF FN LO(H) = H - INT(H/256) *256: DEF FN HI(H) = INT(H/256)
106 MGO = 24832:MRET = 24868:MCTR = 24904:AC = 64
108 LD = 25298:SV = 25311:RE = 20366:CP = 20223:DUMP = 25328
110 A$ = "|--------+---------+---------+---------|---------+---------+---------+---------|"
112 PRINT CHR$(4)"PR#3": HOME : PRINT
114 PRINT CHR$(4)"-CRT.CODE"
116 DIM V%(24): FOR V = 1 TO 24: VTAB V:V%(V) = PEEK(40) + PEEK(41) *256: NEXT :V = 2:MF = 0
118 CALL CX: VTAB 16: HTAB 27: PRINT "PRESS THE SPACE BAR TO START":K9 = 1:GF = 1: GOTO 4000
120 K9 = 0: WAIT Q,F0: POKE QQ,0: POKE 34,1: POKE 35,23: HOME : TEXT : GOTO 140
122 REM GET A CHARACTER
140 CALL 54915: ONERR GOTO 8000
145 POKE SC -ODD,0:PZ = V%(V) +H/2:C = PEEK(PZ):C2 = C:XC = CR -VF -(F0 +AC) *INV: IF C2 = XC THEN C2 = 160
150 POKE SC -ODD,0: POKE PZ,XC: FOR I = 1 TO 50: IF PEEK(Q) = F0 GOTO 500
165 DLT = 0:EF = 0: IF K <160 AND K < >144 THEN 205
170 IF K = 144 THEN CALL DUMP: GOTO 140
175 IF (V = 1 OR V = 24) AND GF = 0 THEN 140
185 POKE SC -ODD,0:UN = 0:X = K -(F0 +AC) *INV: IF X <0 THEN X = X +64
195 POKE PZ,X:H = H +( NOT VF):V = V +VF:ODD = FN MEM(H): GOTO 280
205 REM
215 IF K = 136 OR K = 149 THEN ODD = ODD = 0:H = H -(K = 136) +(K = 149)
225 V = V +(K = 138) -(K = 139)
235 IF K = 137 THEN H = 10 * INT((H +11 *( PEEK(P0) = 0):H = H -(H -79) *(H >79):ODD = FN MEM(H)
245 IF K = 141 THEN V = V +1:H = 0:ODD = 0
260 IF H <0 THEN H = 79:V = V -1:ODD = 1
280 IF H >79 THEN H = 0:V = V +1
300 IF V >24 THEN V = 1
320 IF V <1 THEN V = 24
340 GOTO 140
499 REM APPLE-COMMANDS
500 K = K -32 *(K >223):VO = V:HO = H:OO = ODD: ON K = 138 OR K = 139 GOTO 7000: ON K = 212 GOTO 4000: ON K = 195 OR K = 204 OR K = 210 OR K = 136 OR K = 149 GOTO 3000: ON K = 205 OR K = 196 GOTO 1000: ON K = 201 GOTO 2000: IF K = 208 THEN CALL DUMP: GOTO 140
510 IF K >175 AND K <186 THEN H = H -H *(K = 176):K = K -177 +(K = 176):V = 1 +23 *(K/8):ODD = FN MEM(H): GOTO 140
525 ON K = 193 GOTO 2500: ON K = 203 GOTO 6800: ON K = 209 GOTO 600: ON K = 213 GOTO 5000: ON K = 223 GOTO 2200
527 IF K = 216 THEN CALL CPY: CALL CX: WAIT Q,F0: POKE QQ,0: CALL RE: GOTO 140
530 IF K = 214 THEN VF = VF = 0: GOTO 140
540 ON K = 199 GOTO 6000: ON K = 211 GOTO 6500: REM GET & SAVE SCREENS
550 DLT = 0: GOTO 165
600 CALL QUIT: CALL RE: IF PEEK(592) < >217 AND PEEK(592) < >249 THEN 140
610 GOSUB 7500: VTAB 23: END
999 REM MOVE
1000 GOSUB 7500: CALL CP:UN = 1
1020 NORMAL :INV = 0:COPY = (K = 196):MF = 1: FOR I = 1 TO 3:V(I) = V:H(I) = H:P(I) = PZ:O(I) = ODD:C(I) = C: NEXT :CRS$(3) = CHR$(13 -9 *(COPY)): POKE SC -ODD,0: POKE P(1),49:MF = MF +1
1040 POKE SC -O(MF),0:P(MF) = V%(V) +H/2:C(MF) = PEEK(P(MF)): POKE P(MF), ASC(CRS$(MF))
1050 FOR I = 1 TO MF -1: POKE SC -O(I),0: POKE P(I),C(I): NEXT : FOR I = 1 TO MF -1: POKE SC -O(I),0: POKE P(I), ASC(CRS$(I)):J = PEEK(49200): NEXT
1060 K = PEEK(Q): ON K < = F0 GOTO 1050: POKE QQ,0
1070 IF K = 155 THEN MF = 0: FOR I = 3 TO 1 STEP -1: POKE SC -O(I),0: POKE P(I),C(I): NEXT : NORMAL :V = VO:H = HO:ODD = OO: GOTO 140
1073 IF K < >141 THEN 1080
1075 V(MF) = V:H(MF) = H:MF = MF +1:V(MF) = V:H(MF) = H:O(MF) = O(MF -1)
1076 IF MF = 3 AND V(1) = 0):H = H -(H -79) *(H >79):O(MF) = FN MEM(H)
1088 IF K >175 AND K <186 THEN H = H -H *(K = 176):K = K -177 +(K = 176):V = 1 +23 *(K/8):O(MF) = FN MEM(H)
1090 IF K = 136 OR K = 149 THEN O(MF) = O(MF) = 0:H = H -(K = 136) +(K = 149)
1200 V = V +(K = 138) -(K = 139)
1260 IF H <0 THEN H = 79:V = V -1:O(MF) = 1
1280 IF H >79 AND MF <3 THEN H = 0:V = V +1
1285 IF MF = 3 THEN I = 79 - ABS(H(1) -H(2)): IF H >I THEN PRINT BP$;:H = I:O(MF) = FN MEM(I)
1300 IF V >24 AND MF <3 THEN V = 1
1310 IF MF = 3 THEN I = 24 - ABS(V(1) -V(2)): IF V >I THEN PRINT BP$;:V = I
1320 IF V <1 THEN V = 24
1340 VTAB 1: PRINT : GOTO 1040
1500 TEXT : IF V(1) >V(2) THEN I = V(1):V(1) = V(2):V(2) = I
1502 IF H(1) >H(2) THEN I = H(1):H(1) = H(2):H(2) = I
1503 MF = 0: FOR I = 3 TO 1 STEP -1: POKE SC -O(I),0: POKE P(I),C(I): NEXT
1505 FOR V = V(1) TO V(2): VTAB V:H = H(1):L = H(2) -H +1:A = PEEK(40) + PEEK(41) *256 + INT(H/2): POKE 60, FN LO(A): POKE 61, FN HI(A): POKE 62,L: POKE 63, FN MEM(H)
1510 BB = BF +L *(V -V(1)) -L:B1 = FN LO(BB):B2 = FN HI(BB): POKE MG +14,B1: POKE MG +15,B2: POKE MG +27,B1: POKE MG +28,B2: CALL MGO: NEXT
1520 IF NOT COPY THEN TEXT : IF V(2) <24 OR H(1) +L <80 THEN FOR I = V(1) TO V(2): VTAB 1: PRINT : VTAB I: POKE 1403,H(1): PRINT SPC( L): NEXT : GOTO 1550
1525 IF NOT COPY THEN FOR I = V(1) TO V(2): VTAB 1: PRINT : VTAB I: POKE 1403,H(1): PRINT SPC( L -(I = 24)): NEXT : POKE 2039,160: GOTO 1550
1550 FOR V = V(3) TO V(3) +(V(2) -V(1)): VTAB V:H = H(3):A = PEEK(40) + PEEK(41) *256 + INT(H/2): POKE 60, FN LO(A): POKE 61, FN HI(A): POKE 62,L: POKE 63, FN MEM(H)
1560 BB = BF +L *(V -V(3)) -L:B1 = FN LO(BB):B2 = FN HI(BB): POKE MR +12,B1: POKE MR +13,B2: POKE MR +25,B1: POKE MR +26,B2: CALL MRET: NEXT
1580 V = VO:H = HO:ODD = OO: GOTO 140
1600 POKE 60, FN LO(A): POKE 61, FN HI(A): POKE 62,L: POKE 63, FN MEM(HH): RETURN
1650 B1 = FN LO(BB):B2 = FN HI(BB): POKE MGO +14,B1: POKE MGO +15,B2: POKE MGO +27,B1: POKE MGO +28,B2: RETURN
1660 B1 = FN LO(BB):B2 = FN HI(BB): POKE MGO +48,B1: POKE MGO +49,B2: POKE MGO +61,B1: POKE MGO +62,B2: RETURN
1999 REM INVERSE
2000 IF PEEK(50) = 63 THEN INV = 0:AC = 64: NORMAL : GOTO 140
2010 IF PEEK(50) = 255 THEN INV = 1:AC = 64: INVERSE : GOTO 140
2100 REM DELETE
2200 IF DL = 0 THEN GOSUB 7500: CALL CP:UN = 1
2250 TEXT : VTAB V -(V -1) *(DLT = 3): POKE 1403,H -H *(DLT >0): NORMAL : CALL -868 -90 *(DLT >1): POKE 50,255 -192 *INV:DLT = DLT +1: GOTO 140
2499 REM MOUSE TEXT
2500 AC = 64 -AC: IF AC = 0 THEN INVERSE :INV = 1: GOTO 140
2510 INV = 0: NORMAL : GOTO 140
2999 REM CENTER/LEFT/RIGHT
3000 GOSUB 7500
3020 TEXT : VTAB V:AA = PEEK(40) + PEEK(41) *256: CALL MCTR:LL = PEEK(62):RR = PEEK(63): IF LL >RR THEN 140
3040 BB = BF: GOSUB 1650: GOSUB 1660: TEXT :A = AA + INT(LL/2):L = RR -LL +1:HH = LL: GOSUB 1600: CALL MGO: TEXT : VTAB 1: PRINT : VTAB V: IF K >149 THEN NORMAL : CALL -868: POKE 50,255 -192 *INV
3041 IF K = 195 THEN HH = (80 -L)/2:A = AA + INT(HH/2): GOSUB 1600: CALL MRET
3043 IF K = 204 THEN HH = 0:A = AA: GOSUB 1600: CALL MRET
3045 IF K = 210 THEN HH = 80 -L:A = AA + INT(HH/2): GOSUB 1600: CALL MRET
3050 IF K = 136 THEN H = LL:ODD = FN MEM(H)
3055 IF L <80 AND K = 149 THEN H = RR:ODD = FN MEM(H)
3500 GOTO 140
3999 REM TAB RULER
4000 GF = GF = 0: TEXT : IF GF = 0 THEN 4100
4050 BB = BG:A = 1024: GOSUB 1660: GOSUB 1600: CALL MRET:BB = BG +80: GOSUB 1660:A = 2000: GOSUB 1600: CALL MRET: GOTO 4120
4100 BB = BG: GOSUB 1650:A = 1024:L = 80:HH = 0: GOSUB 1600: CALL MGO:BB = BG +80: GOSUB 1650:A = 2000: GOSUB 1600: CALL MGO
4110 TEXT : VTAB 1: PRINT : VTAB 1: POKE 1403,0:: PRINT A$: VTAB 24: PRINT LEFT$(A$,79);: POKE 2039,252
4120 IF K9 = 2 THEN RETURN
4125 ON K9 +1 GOTO 140,120
4990 REM UNDO LAST MOVE, COPY OR DELETE
5000 IF UNDO = 1 THEN UNDO = 0: CALL RE:DL = 0
5010 GOTO 140
5999 REM LOAD A SCREEN
6000 GOSUB 7500
6005 CALL LD:N$ = "":X = 592
6010 IF PEEK(X) < >0 THEN N$ = N$ + CHR$( PEEK(X)):X = X +1: GOTO 6010
6020 IF N$ < >"" THEN PRINT D$"-"N$: GOTO 140
6030 CALL RE: GOTO 140
6400 REM SAVE A SCREEN
6500 GOSUB 7500
6505 CALL SV:N$ = "":X = 592
6510 IF PEEK(X) < >0 THEN N$ = N$ + CHR$( PEEK(X)):X = X +1: GOTO 6510
6520 IF N$ < >"" THEN PRINT D$"BSAVE"N$",A$4F8B,E$577F"
6530 CALL RE: GOTO 140
6700 REM CATALOG DISK
6800 C2$ = "CATALOG" +K1$: IF PEEK(P0 +1) > = F0 THEN C2$ = "CATALOG" +K2$
6805 CALL CPY: TEXT : PRINT D$;C2$
6810 PRINT "PRESS A KEY": WAIT Q,F0: POKE QQ,0: CALL RE: GOTO 140
6999 REM SCREEN UP/DOWN
7000 IF PEEK(P0 +1)
8000 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256
8010 IF EL = 6805 AND ER = 255 THEN 6810
8020 IF EL = 114 THEN PRINT "CAN'T FIND CRT.CODE": END : GOTO 114
8100 IF EL = 6020 OR EL = 6520 OR EL = 6805 THEN VTAB 11: PRINT BP$: HTAB 2: INVERSE : PRINT " DISK-RELATED ERROR; PRESS A KEY ";: NORMAL : GET X$: CALL RE: GOTO 140
9000 POKE 216,0: RESUME

Text found in 240b_The_Big_U.dsk/DUMP.40.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 42 FC 20 8E FD A0 00 B9 BA 41 F0 11 C9 E1 90 B| .} . 9:Ap.Ia.
$000010 07 AE 98 BF 30 02 29 DF 20 ED FD C8 D0 EA AD F6 ...?0.)_ m}HPj-v
$000020 03 8D 05 41 AD F7 03 8D 06 41 A9 01 8D A5 40 20 ...A-w.. .A)..%@
$000030 F5 BE 90 03 4C 09 BE 8D A6 40 AD A3 40 85 3A AD u>..L.>. &@-#@.:-
$000040 A4 40 85 3B 18 AD A1 40 6D A5 40 8D A2 40 A0 00 $@.;.-!@ m%@."@ .
$000050 B1 3A F0 2C 20 8E F8 A4 2F C0 02 D0 15 B1 3A CD 1:p, .x$ /@.P.1:M
$000060 A1 40 90 0E CD A2 40 B0 09 6D A6 40 38 ED A1 40 !@..M"@0 .m&@8m!@
$000070 91 3A 98 38 65 3A 85 3A A5 3B 69 00 85 3B 90 CE .:.8e:.: %;i..;.N
$000080 A9 00 85 3C A9 41 85 3D A9 B9 85 3E A9 41 85 3F )..<)A.= )9.>)A.?
$000090 A9 00 85 42 AD A6 40 85 43 A0 00 20 2C FE 4C A7 )..B-&@. C . ,~L'
$0000A0 40 41 00 00 41 02 00 A9 4C 8D F5 03 A9 00 8D F6 @A..A..) L.u.)..v
$0000B0 03 AD A6 40 8D F7 03 60 87 00 00 00 00 00 00 00 .-&@.w.` ........
$0000C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000100 C9 A1 F0 03 4C 00 00 AD 30 BE 85 08 AD 31 BE 85 I!p.L..- 0>..-1>.
$000110 09 A9 C1 8D 31 BE AD 00 04 85 E8 A5 25 85 E9 A9 .)A.1>-. ..h%%.i)
$000120 00 85 06 8D 30 BE 85 E0 A2 28 86 07 20 AE 41 20 ....0>.` "(.. .A
$000130 8E FD A9 00 20 24 FC A2 00 A0 27 B1 28 09 80 C9 .}). $|" . '1(..I
$000140 A0 D0 03 88 D0 F5 C8 C0 28 B0 01 C8 84 07 A0 00 P..PuH@ (0.H.. .
$000150 B1 28 09 80 C9 A0 B0 02 09 40 20 AE 41 20 ED FD 1(..I 0. .@ .A m}
$000160 AD 00 C0 10 0A 8D 10 C0 C9 9B D0 03 4C 8F 41 A5 -.@....@ I.P.L.A%
$000170 06 20 24 FC C8 C4 07 90 D7 20 AE 41 20 8E FD A5 . $|HD.. W .A .}%
$000180 06 20 24 FC E6 06 A5 06 C9 18 B0 03 4C 34 41 20 . $|f.%. I.0.L4A
$000190 8E FD 20 AE 41 A5 E8 8D 00 04 A5 08 8D 30 BE A5 .} .A%h. ..%..0>%
$0001A0 09 8D 31 BE A5 E9 85 25 20 24 FC 4C B1 00 48 A9 ..1>%i.% $|L1.H)
$0001B0 00 85 24 85 25 20 22 FC 68 60 8D B4 B0 AD C3 CF ..$.% "| h`.40-CO
$0001C0 CC D5 CD CE A0 D3 C3 D2 C5 C5 CE A0 C4 D5 CD D0 LUMN SCR EEN DUMP
$0001D0 8D C3 EF F0 F9 F2 E9 E7 E8 F4 A0 A8 E3 A9 A0 B1 .Copyrig ht (c) 1
$0001E0 B9 B8 B5 AC A0 D2 E1 EE E4 F9 A0 C2 F2 E1 EE E4 985, Ran dy Brand
$0001F0 F4 8D C2 E5 E1 E7 EC E5 A0 C2 F2 EF F3 A0 CD E9 t.Beagle Bros Mi
$000200 E3 F2 EF A0 D3 EF E6 F4 F7 E1 F2 E5 AC A0 C9 EE cro Soft ware, In
$000210 E3 AE 8D 8A D4 F9 F0 E5 A0 A2 A6 A0 D0 CF D0 A2 c...Type "& POP"
$000220 A0 F4 EF A0 F5 F3 E5 AE 8D 8A 00 .. .. .. .. .. to use. ...
** END **

Text found in 240b_The_Big_U.dsk/DUMP.80.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 01 8D AA 41 20 42 FC 20 8E FD AD 98 BF 6A 6A )..*A B| .}-.?jj
$000010 B0 0E A2 00 BD D2 40 F0 06 20 ED FD E8 D0 F5 60 0.".=R@p . m}hPu`
$000020 A0 00 B9 F7 41 F0 11 C9 E1 90 07 AE 98 BF 30 02 .9wAp.I a....?0.
$000030 29 DF 20 ED FD C8 D0 EA AD F6 03 8D 05 41 AD F7 )_ m}HPj -v...A-w
$000040 03 8D 06 41 A9 01 8D BF 40 20 F5 BE 90 03 4C 09 ...A)..? @ u>..L.
$000050 BE 8D C0 40 AD BD 40 85 3A AD BE 40 85 3B 18 AD >.@@-=@. :->@.;.-
$000060 BB 40 6D BF 40 8D BC 40 A0 00 B1 3A F0 2C 20 8E ;@m?@.<@ .1:p, .
$000070 F8 A4 2F C0 02 D0 15 B1 3A CD BB 40 90 0E CD BC x$/@.P.1 :M;@..M<
$000080 40 B0 09 6D C0 40 38 ED BB 40 91 3A 98 38 65 3A @0.m@@8m ;@.:.8e:
$000090 85 3A A5 3B 69 00 85 3B 90 CE A9 00 85 3C A9 41 .:%;i..; .N)..<)A
$0000A0 85 3D A9 F6 85 3E A9 41 85 3F A9 00 85 42 AD C0 .=)v.>)A .?)..B-@
$0000B0 40 85 43 A0 00 20 2C FE 4C C1 40 41 00 00 41 02 @.C . ,~ LA@A..A.
$0000C0 00 A9 4C 8D F5 03 A9 00 8D F6 03 AD C0 40 8D F7 .)L.u.). .v.-@@.w
$0000D0 03 60 87 B8 B0 AD C3 CF CC D5 CD CE A0 D3 C3 D2 .`.80-CO LUMN SCR
$0000E0 C5 C5 CE A0 D2 C5 D1 D5 C9 D2 C5 C4 AE 00 00 00 EEN REQU IRED....
$0000F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000100 C9 A1 F0 03 4C 00 00 AD 30 BE 85 08 AD 31 BE 85 I!p.L..- 0>..-1>.
$000110 09 A9 C1 8D 31 BE 8D 55 C0 AD 00 04 8D 54 C0 85 .)A.1>.U @-...T@.
$000120 E8 A5 25 85 E9 A9 00 85 06 8D 30 BE 85 E0 A2 28 h%%.i).. ..0>.`"(
$000130 86 07 20 E8 41 20 8E FD A9 00 20 24 FC A2 00 A0 .. hA .} ). $|".
$000140 27 9D 54 C0 B1 28 8D 54 C0 09 80 C9 A0 D0 0E A5 '.T@1(.T @..I P.%
$000150 E0 D0 07 49 01 85 E0 AA D0 E7 88 D0 E4 C8 C0 28 `P.I..`* Pg.PdH@(
$000160 B0 01 C8 84 07 A0 00 84 E0 A5 E0 49 01 85 E0 AA 0.H.. .. `%`I..`*
$000170 9D 54 C0 B1 28 8D 54 C0 09 80 C9 A0 B0 02 09 40 .T@1(.T@ ..I 0..@
$000180 20 E8 41 20 ED FD AD 00 C0 10 0A 8D 10 C0 C9 9B hA m}-. @....@I.
$000190 D0 03 4C C3 41 A5 06 20 24 FC A5 E0 D0 CB C8 C4 P.LCA%. $|%`PKHD
$0001A0 07 90 C6 A5 07 C9 28 90 04 A9 00 F0 0B 20 E8 41 ..F%.I(. .).p. hA
$0001B0 20 8E FD A5 06 20 24 FC E6 06 A5 06 C9 18 B0 03 .}%. $| f.%.I.0.
$0001C0 4C 3A 41 20 8E FD 20 E8 41 A5 E8 8D 55 C0 8D 00 L:A .} h A%h.U@..
$0001D0 04 8D 54 C0 A5 08 8D 30 BE A5 09 8D 31 BE A5 E9 ..T@%..0 >%..1>%i
$0001E0 85 25 20 24 FC 4C B1 00 48 A9 00 85 24 8D 7B 05 .% $|L1. H)..$.{.
$0001F0 85 25 20 22 FC 68 60 8D B8 B0 AD C3 CF CC D5 CD .% "|h`. 80-COLUM
$000200 CE A0 D3 C3 D2 C5 C5 CE A0 C4 D5 CD D0 8D C3 EF N SCREEN DUMP.Co
$000210 F0 F9 F2 E9 E7 E8 F4 A0 A8 E3 A9 A0 B1 B9 B8 B5 pyright (c) 1985
$000220 AC A0 D2 E1 EE E4 F9 A0 C2 F2 E1 EE E4 F4 8D C2 , Randy Brandt.B
$000230 E5 E1 E7 EC E5 A0 C2 F2 EF F3 A0 CD E9 E3 F2 EF eagle Br os Micro
$000240 A0 D3 EF E6 F4 F7 E1 F2 E5 AC A0 C9 EE E3 AE 8D Softwar e, Inc..
$000250 8A D4 F9 F0 E5 A0 A2 A6 A0 D0 CF D0 A2 A0 F4 EF .Type "& POP" to
$000260 A0 F5 F3 E5 AE 8D 8A 00 .. .. .. .. .. .. .. .. use....
** END **

Text found in 240b_The_Big_U.dsk/FILEMOVER.SETUP.bas:

1 ONERR GOTO 300
2 D$ = CHR$(4):KP = 49152:KR = 49168:Q$ = CHR$(34):CS = -958:CL = -868:BP$ = CHR$(7)
3 TF = 15050: REM $3ACA
4 PF = TF +1: REM PRINTER FLAG
5 TF(0) = TF +6:TF(1) = TF +11:TF(2) = TF +16:TF(3) = TF +24: REM 2 ASCII, LIT
7 TEXT : HOME : NORMAL : PRINT CHR$(21)
10 TEXT : HOME : NORMAL : PRINT CHR$(21)
20 PRINT "FILE.MOVER"
30 PRINT "Setup Program (See page 31)"
40 PRINT "-------------": PRINT
50 PRINT "Copyright (c) 1985, Randy Brandt"
60 PRINT "Beagle Bros Micro Software, Inc."
70 VTAB 9: CALL CS: PRINT "Loading FILE.MOVER..."
80 PRINT D$"BLOAD FILE.MOVER":LE = PEEK(48857) +256 * PEEK(48858)
90 TR = PEEK(TF(0)):T1 = TR:RE$ = "ON": IF PEEK(PF) = 0 THEN RE$ = "OFF"
100 IF TR <36 OR TR >80 THEN VTAB 8: PRINT : CALL CS: PRINT "Unrecognized version of FILE.MOVER": STOP
110 GOSUB 270: REM TRACKS
120 GET X$: IF X$ = "Q" OR X$ = "q" THEN 400
125 IF X$ = "P" OR X$ = "p" THEN POKE PF,1 - PEEK(PF): GOTO 90
130 IF X$ = "S" OR X$ = "s" THEN X$ = "S": VTAB 21: PRINT : PRINT "Saving configured version...": CALL CS
135 IF X$ = "S" THEN 200
140 IF X$ < >"F" AND X$ < >"f" THEN PRINT BP$;: GOTO 120
145 VTAB 21: PRINT : PRINT "Format how many tracks";: CALL CS: INPUT X$: IF X$ = "" THEN 110
150 X = VAL(X$): IF X <36 OR X >40 THEN 145
155 TR = X:A1 = ASC( LEFT$(X$,1)) +128:A2 = ASC( RIGHT$(X$,1)) +128:TB = TR *8:X = INT((TB)/256):TB = TB -(X *256)
180 POKE TF(0),TR: POKE TF(1),TB: POKE TF(2),A1: POKE TF(3),A2: GOTO 110
200 PRINT D$"UNLOCK FILE.MOVER"
201 PRINT D$"BSAVE FILE.MOVER,A$3ACA,L"LE: PRINT D$"LOCK FILE.MOVER": GOTO 110
270 VTAB 5: PRINT : PRINT "FILE.MOVER is capable of formatting from 36 to 40 tracks on special drives.": PRINT "Do NOT attempt to format more tracks than your drive is designed to handle.": CALL CS: PRINT
280 PRINT "F - Change special format": HTAB 5: PRINT "(Now ";: INVERSE : PRINT TR;: NORMAL : PRINT " tracks)": PRINT : PRINT "P - Change printer setting": HTAB 5: PRINT "(Extra carriage returns now ";: INVERSE : PRINT RE$;: NORMAL : PRINT ") ": PRINT
285 PRINT "S - Save FILE.MOVER": PRINT : PRINT "Q - Quit": PRINT : PRINT
290 PRINT "Press "Q$"F"Q$", "Q$"P"Q$", "Q$"S"Q$", or "Q$"Q"Q$": ";: CALL CS: RETURN
300 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256
305 IF EL = 80 AND ER = 12 THEN HOME : PRINT : PRINT "PLEASE REBOOT AND TRY AGAIN.": END
310 IF EL = 80 THEN VTAB 8: PRINT BP$: PRINT "Can't find FILE.MOVER "ER: PRINT "Insert the proper disk and press a key ";: GET X$: ON X$ < > CHR$(27) GOTO 80: GOTO 400
315 IF EL = 200 THEN 201
320 IF EL = 201 THEN VTAB 21: PRINT BP$: CALL CS: PRINT "DISK ERROR": PRINT "Press Return to try again": PRINT "or press Escape: ";: GET Y$: ON Y$ < > CHR$(27) GOTO 201: GOTO 110
340 POKE 216,0: RESUME
400 HOME : PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART."

Text found in 240b_The_Big_U.dsk/INPUT.SETUP.bas:

1 ONERR GOTO 520
2 D$ = CHR$(4):KP = 49152:KR = 49168:Q$ = CHR$(34):CS = -958:CL = -868:BP$ = CHR$(7):MA = 16640 +7:DE = MA +1
10 TEXT : HOME : NORMAL : PRINT CHR$(21)
20 PRINT "INPUT.40 & INPUT.80"
30 PRINT "SETUP PROGRAM"
40 PRINT "-------------": PRINT
50 PRINT "COPYRIGHT (C) 1985, RANDY BRANDT"
60 PRINT "BEAGLE BROS MICRO SOFTWARE, INC."
70 VTAB 8: PRINT : CALL CS: PRINT "SET UP WHICH PROGRAM?": PRINT : PRINT "F - INPUT.40": PRINT : PRINT "E - INPUT.80": PRINT : PRINT "Q - QUIT": PRINT
74 PRINT "PRESS "Q$"F"Q$", "Q$"E"Q$", OR "Q$"Q"Q$": ";
90 GET X$: IF X$ = "Q" OR X$ = "q" THEN 550
100 IN$ = "INPUT.40": IF X$ = "E" OR X$ = "e" THEN IN$ = "INPUT.80": GOTO 130
110 IF X$ < >"F" AND X$ < >"f" THEN PRINT BP$;: GOTO 90: REM 40
130 VTAB 8: PRINT : CALL CS: PRINT "LOADING "IN$
140 PRINT D$"BLOAD"IN$:LE = PEEK(48857) +256 * PEEK(48858)
150 GOSUB 500: REM LENGTH INFO
160 GET X$: IF X$ = CHR$(27) THEN 70
170 IF X$ = "U" OR X$ = "u" THEN SL = PEEK(MA): GOTO 250
180 IF X$ < >"C" AND X$ < >"c" THEN PRINT BP$;: GOTO 160
190 VTAB 18: PRINT : CALL CS
200 VTAB 18: PRINT "ENTER NEW MAXIMUM LENGTH";: INPUT ": ";SL$: IF SL$ = "" THEN 150
210 SL = VAL(SL$)
220 IF SL <1 OR SL >255 THEN PRINT BP$;: GOTO 200
240 POKE MA,SL: REM
250 GOSUB 450
260 GET X$: IF X$ = CHR$(27) THEN 150
270 IF X$ = "U" OR X$ = "u" THEN 310
280 IF X$ < >"K" AND X$ < >"k" THEN PRINT BP$;: GOTO 260
290 VTAB 12: PRINT : CALL CS: PRINT "PRESS NEW DELETE KEY: ";: GET DK$: IF DK$ = CHR$(27) THEN 250
300 DK = ASC(DK$) +128
310 POKE DE,DK
320 VTAB 8: PRINT : CALL CS: PRINT "NEW "IN$" SETUP:": PRINT : PRINT "MAXIMUM LENGTH: ";: INVERSE : PRINT SL: NORMAL
330 PRINT "DELETE KEY: ";: INVERSE : IF DK = 255 THEN PRINT "DELETE KEY": GOTO 360
340 IF DK <160 THEN PRINT "CONTROL-"; CHR$(DK +64): GOTO 360
350 PRINT CHR$(DK)
360 NORMAL : PRINT : PRINT "PRESS RETURN TO SAVE "IN$",": PRINT "OR PRESS ESCAPE TO REDO: ";
370 GET X$: IF X$ = CHR$(27) THEN 150
375 IF X$ < > CHR$(13) THEN 370
380 VTAB PEEK(37): HTAB 1: PRINT "SAVING CONFIGURED VERSION...";: CALL CS: PRINT
390 PRINT D$"UNLOCK"IN$
391 PRINT D$"BSAVE"IN$",A$4000,L"LE: GOTO 70
450 VTAB 8: PRINT : CALL CS: PRINT "CURRENT DELETE KEY: ";:DK = PEEK(DE): IF DK <160 THEN PRINT "CONTROL-"; CHR$(DK +64): GOTO 480
460 IF DK = 255 THEN PRINT "DELETE KEY": GOTO 480
470 PRINT CHR$(DK)
480 PRINT : PRINT "K - SELECT A NEW KEY": PRINT
490 PRINT "U - USE EXISTING KEY": PRINT : PRINT "PRESS "Q$"K"Q$" OR "Q$"U"Q$": ";: RETURN
500 VTAB 8: PRINT : CALL CS: PRINT "CURRENT MAXIMUM ENTRY LENGTH: ";:SL = PEEK(MA): PRINT SL
510 PRINT : PRINT "U - USE "SL" FOR MAXIMUM LENGTH": PRINT : PRINT "C - CHANGE MAXIMUM LENGTH": PRINT : PRINT "PRESS "Q$"U"Q$" OR "Q$"C"Q$": ";: RETURN
520 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256
530 IF EL = 140 THEN VTAB 8: PRINT : PRINT BP$;"CAN'T FIND "IN$: PRINT : PRINT "PLEASE INSERT BIG.U": PRINT "AND PRESS A KEY ";: GET X$: ON X$ < > CHR$(27) GOTO 140: GOTO 550
535 IF EL = 390 THEN 391
540 IF EL = 391 THEN VTAB 13: PRINT BP$: CALL CS: PRINT "DISK ERROR": PRINT "PRESS RETURN TO TRY AGAIN": PRINT "OR PRESS ESCAPE: ";: GET X$: ON X$ < > CHR$(27) GOTO 391: GOTO 150
545 POKE 216,0: RESUME
550 HOME : PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART."

Text found in 240b_The_Big_U.dsk/KEYCAT.SETUP.bas:

10 ONERR GOTO 500
20 D$ = CHR$(4):KP = 49152:KR = 49168:Q$ = CHR$(34):CS = -958:BP$ = CHR$(7)
30 REM CONFIGURATION ADDRESSES
40 SD = 18687: REM ONLINE DEVICE
50 RF = 16514: REM RESET FLAG
60 C1 = 18539: REM CONFIG1
70 C2 = 18617: REM CONFIG2
80 C3 = 19645: REM CONFIG3
100 TEXT : HOME : NORMAL : PRINT CHR$(21)
110 PRINT " KEYCAT.80 SETUP PROGRAM"
120 PRINT " -----------------------"
130 PRINT " COPYRIGHT (C) 1985, RANDY BRANDT"
140 PRINT " BEAGLE BROS MICRO SOFTWARE, INC."
150 VTAB 9: PRINT
170 PRINT D$"BLOAD KEYCAT.80,A$4000":LE = PEEK(48857) +256 * PEEK(48858): IF PEEK(RF) >1 THEN PRINT BP$: PRINT "UNRECOGNIZED VERSION OF KEYCAT.80": END
180 GOSUB 460: REM RESET?
190 GET X$: IF X$ = "Q" OR X$ = "q" THEN 550
195 IF X$ = "U" OR X$ = "u" THEN POKE RF,1: GOTO 220
200 IF X$ < >"D" AND X$ < >"d" THEN PRINT BP$;: GOTO 190
210 POKE RF,0
220 GOSUB 480: REM SLOT/DRIVE INFO
230 GET X$: IF X$ = CHR$(27) THEN 180
240 IF X$ = "R" OR X$ = "r" THEN POKE C1,179: POKE C2,179: POKE C3,179: POKE C1 +3,178: POKE C2 +3,178: POKE C3 +3,178:SL = 3:DR = 2: GOTO 330
250 IF X$ < >"N" AND X$ < >"n" THEN PRINT BP$;: GOTO 230
260 VTAB 18: PRINT : CALL CS
270 VTAB 19: PRINT "ENTER NEW SLOT: ";: GET SL$:SL = VAL(SL$): PRINT SL$: IF SL$ = CHR$(27) THEN 220
280 IF SL <1 OR SL >7 THEN PRINT BP$;: GOTO 270
290 VTAB 19: HTAB 20: PRINT "ENTER NEW DRIVE: ";: GET DR$:DR = VAL(DR$): PRINT DR$: IF DR$ = CHR$(27) THEN 270
300 IF DR <1 OR DR >2 THEN PRINT BP$;: GOTO 290
310 VTAB 19: PRINT "PRESS RETURN TO USE SLOT "SL", DRIVE "DR": ";: GET X$: IF X$ < > CHR$(13) THEN 260
320 POKE C1,SL +176: POKE C2,SL +176: POKE C3,SL +176: POKE C1 +3,DR +176: POKE C2 +3,DR +176: POKE C3 +3,DR +176: REM
330 X = ((DR -1) *128) +SL *16: POKE SD,X
340 VTAB 7: CALL CS: PRINT : PRINT "CURRENT SETUP:": PRINT : PRINT "CONTROL-RESET ";: INVERSE
350 X = PEEK(RF): IF X THEN PRINT "ENABLED;": GOTO 370
360 PRINT "DISABLED;"
370 NORMAL : PRINT "MENU FILE ON SLOT ";: INVERSE : PRINT SL;: NORMAL : PRINT ", DRIVE ";: INVERSE : PRINT DR;: NORMAL : PRINT "."
380 PRINT : PRINT "PRESS RETURN TO SAVE KEYCAT.80,": PRINT "OR ESCAPE TO REDO ";
390 GET X$: IF X$ = CHR$(27) THEN 180
395 IF X$ < > CHR$(13) THEN 390
400 VTAB PEEK(37): HTAB 1: PRINT "SAVING CONFIGURED VERSION...";: CALL CS: PRINT
410 PRINT D$"UNLOCK KEYCAT.80"
411 PRINT D$"BSAVE KEYCAT.80,A$4000,L"LE: PRINT D$"LOCK KEYCAT.80"
420 HOME : PRINT : PRINT "TYPE "Q$"-KEYCAT.80"Q$" TO GET STARTED.": END
430 POKE KR,0: WAIT KP,128: POKE KR,0:X = PEEK(KP): RETURN
440 REM CONTROL RESET
450 RETURN
460 VTAB 7: PRINT : CALL CS: PRINT "KEYCAT.80 CREATES A FILE CALLED "Q$"MENU"Q$: PRINT "WHICH MAY BE ACTIVATED BY PRESSING": PRINT "CONTROL-RESET OR BY TYPING"Q$"-MENU"Q$".": PRINT
470 PRINT "D - DISABLE THE CONTROL-RESET METHOD": PRINT : PRINT "U - USE CONTROL-RESET TO RUN "Q$"MENU"Q$: PRINT
475 PRINT "Q - QUIT": PRINT : PRINT "SELECT "Q$"D"Q$", "Q$"U"Q$" OR "Q$"Q"Q$": ";: RETURN
480 VTAB 7: PRINT : CALL CS: PRINT "THE MENU FILE IS USUALLY STORED ON": PRINT "THE RAM DISK IN SLOT 3, DRIVE 2.": PRINT : PRINT "IF YOU DON'T HAVE 128K YOU MAY STORE THEFILE ON A FLOPPY. A HARD DISK MAY ALSO BE SPECIFIED.": PRINT
490 PRINT "R - USE RAM DISK (SLOT 3, DRIVE 2)": PRINT : PRINT "N - NEW SLOT/DRIVE SETTINGS": PRINT : PRINT "SELECT "Q$"R"Q$" OR "Q$"N"Q$": ";: RETURN
500 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256
510 IF EL = 170 THEN VTAB 7: PRINT BP$: PRINT "CAN'T FIND KEYCAT.80; PLEASE": PRINT "INSERT /BIG.U AND PRESS A KEY: ";: GET X$: ON X$ < > CHR$(27) GOTO 170: GOTO 550
515 IF EL = 410 THEN 411
520 IF EL = 411 THEN VTAB 12: PRINT BP$: CALL CS: PRINT "DISK ERROR": PRINT "PRESS RETURN TO TRY AGAIN": PRINT "OR PRESS ESCAPE: ";: GET X$: ON X$ < > CHR$(27) GOTO 411: GOTO 180
540 POKE 216,0: RESUME
550 HOME : PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART."

Text found in 240b_The_Big_U.dsk/NOTES.bas:

10 SPEED= 255: TEXT : PRINT CHR$(21): HOME :Q$ = CHR$(34):D$ = CHR$(4)
20 PRINT "--------------------------------------": PRINT
30 INVERSE : PRINT " KEYCAT.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 32)"
40 PRINT "WORKS ON A II+ WITH A VIDEX VIDEOTERM.": PRINT
50 PRINT "--------------------------------------": PRINT
60 INVERSE : PRINT " DUMP.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 39)"
70 PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT
80 PRINT "--------------------------------------": PRINT
90 INVERSE : PRINT " INPUT.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 40)"
100 PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT
110 PRINT "--------------------------------------": PRINT
120 INVERSE : PRINT " SAVE.80 ";: NORMAL : HTAB 30: PRINT "(PAGE 71)"
130 PRINT "REQUIRES AN APPLE IIC OR 80-COLUMN IIE.": PRINT
140 PRINT "--------------------------------------"
150 POKE 49168,0: PRINT : PRINT "PRESS RETURN TO CONTINUE: ";: GET X$: PRINT : HOME
160 SPEED= 170:SP = 49200:ND = 16: DIM A$(ND): FOR I = 0 TO ND: READ A$(I): NEXT : INVERSE : VTAB 23: PRINT SPC( 39): PRINT
170 FOR I = 0 TO ND:L = LEN(A$(I)): FOR J = 1 TO L:X$ = MID$ (A$(I),J,1)
180 PRINT X$;: IF X$ < >" " THEN Y = PEEK(SP)
190 NEXT : PRINT SPC( 39 -L): PRINT :Y = PEEK(SP): NEXT : NORMAL : VTAB 23:: SPEED= 1: FOR I = 0 TO 2: PRINT :X = PEEK(SP): NEXT : SPEED= 255
200 DATA " EXTRA CREDITS GO TO"
210 DATA " "
220 DATA " B E R T K E R S E Y"
230 DATA " FOR PROGRAMMING ON CRT.WRITER &"
240 DATA " XLISTER, AND FOR LOTS OF IDEAS"
250 DATA " "
260 DATA " M A R K S I M O N S E N"
270 DATA " FOR WRITING THE RELOCATING ROUTINE"
280 DATA " USED WITH THE NEW COMMAND PROGRAMS"
290 DATA " "
300 DATA " M I K E P A R K I N S O N"
310 DATA " FOR THE GRAPHICS ON THE SHOW DEMO"
320 DATA " "
330 DATA " J A C K C A S S I D Y , A L A N"
340 DATA " B I R D & D O N S C H U B E R T"
350 DATA " FOR DEBUGGING HELP."
360 DATA " "
370 PRINT : PRINT "PRESS "Q$"M"Q$" FOR THE MENU, OR "Q$"Q"Q$" TO QUIT:";
380 GET X$: IF X$ = "M" OR X$ = "m" THEN PRINT D$"-STARTUP"
390 IF NOT (X$ = "Q" OR X$ = "q") THEN 380
400 VTAB 22: CALL -958

Text found in 240b_The_Big_U.dsk/RANDY.BRANDT.bas:

10 ONERR GOTO 140: REM GRAPHICS ROUTINE BY MIKE PARKINSON
15 D$ = CHR$(4):KP = 49152:KR = 49168:Q$ = CHR$(34):BP$ = CHR$(7):CL = -868: PRINT CHR$(21): NORMAL
17 FOR I = 0 TO 18: READ A: POKE 24576 +I,A: NEXT : POKE 232,0: POKE 233,96: HGR : HCOLOR= 7: ROT= 0: POKE 49234,0: FOR S = 5 TO 80: SCALE= S: DRAW 1 AT 140,95: NEXT : FOR S = 80 TO 10 STEP -1: SCALE= S: XDRAW 1 AT 140,95: NEXT
20 DATA 1,0,4,0,24,63,54,45,54,45,36,45,36,63,36,63,54,17,0: TEXT : HOME : PRINT
30 PRINT "BRUN SHOW": PRINT D$"SHOW,A1": TEXT
35 HOME : PRINT : PRINT "DEMO FOR "Q$"SHOW"Q$" COMMAND": PRINT
40 VTAB 21: PRINT : CALL -958: PRINT "COPYRIGHT (C) 1985, RANDY BRANDT": PRINT "BEAGLE BROS MICRO SOFTWARE, INC.": VTAB 5: PRINT : PRINT "SELECT AN OPTION:": PRINT
45 PRINT "<1,2> VIEW APPROPRIATE HI-RES SCREEN": PRINT : PRINT " TOGGLE SPLIT/FULL SCREEN": CALL -868: PRINT
50 PRINT " GET BACK TO THIS TEXT SCREEN": PRINT : PRINT " LOAD A HIRES PICTURE": PRINT : PRINT " QUIT": POKE 34,18:F = 0:HP = 1
60 VTAB 6: HTAB 1: PRINT "SELECT AN OPTION: ";: POKE 49168,0: GET X$:A = VAL(X$): IF A <0 OR A >2 THEN PRINT BP$;: GOTO 60
70 IF A >0 THEN TEXT : VTAB 19: PRINT : FLASH : PRINT " SHOW,A"A",F"F" ";: FOR I = 0 TO 2100: NEXT : NORMAL : HTAB 1: CALL CL: PRINT D$"SHOW,A"A",F"F: GOTO 60
80 IF X$ = CHR$(27) THEN POKE 49233,0: POKE 49236,0: GOTO 60
90 IF X$ = "Q" OR X$ = "q" THEN TEXT : GOTO 180
100 IF X$ = "S" OR X$ = "s" THEN F = 1 -F: TEXT : VTAB 19: PRINT : FLASH : PRINT " SHOW,A"A",F"F" ";: FOR I = 0 TO 2100: NEXT : NORMAL : HTAB 1: CALL CL: PRINT D$"SHOW,A"A",F"F: GOTO 60
110 IF X$ < >"L" AND X$ < >"l" THEN PRINT BP$;: GOTO 60
120 POKE 49233,0: POKE 49236,0: VTAB 17: PRINT : PRINT "ENTER THE PICTURE'S PATHNAME OR PRESS": PRINT ""Q$"RETURN"Q$" TO EXIT";
125 INPUT ": ";PIC$: ON PI$ = "" GOTO 160: VTAB 19: HTAB 19:HP = 2: FLASH : PRINT " SHOW "PI$",A"HP" ": NORMAL : PRINT D$"SHOW"PI$",A"HP:HP = 3 -HP: VTAB 18: CALL CL: PRINT : CALL CL: PRINT : CALL CL: GOTO 60
130 PRINT BP$;: GOTO 130
140 ER = PEEK(218) + PEEK(219) *256: IF ER = 30 THEN 555
145 IF ER < >125 THEN 170
150 VTAB 17: PRINT BP$: CALL CL: PRINT : CALL CL: VTAB 18: PRINT PI$" NOT FOUND; PRESS A KEY ";: GET X$
160 VTAB 17: PRINT : CALL CL: PRINT : CALL CL: GOTO 60
170 POKE 216,0: RESUME
180 VTAB 22: HTAB 1: CALL -958: INVERSE : PRINT "SELECT:";: NORMAL : PRINT " MAIN MENU QUIT NOW";: VTAB 22: HTAB 10: GET A$: IF A$ = "M" OR A$ = "m" THEN PRINT CHR$(4)"-STARTUP"
190 IF A$ = CHR$(27) THEN 40
200 IF A$ < >"Q" AND A$ < >"q" THEN 180
210 VTAB 20: PRINT : PRINT "TYPE "Q$"SHOW,A1"Q$" TO SEE HIRES PAGE1.": CALL CL: PRINT : END
555 PRINT : PRINT : PRINT D$"-SHOW": GOTO 35

Text found in 240b_The_Big_U.dsk/STARTUP.bas:

10 V$ = "02-DEC-85"
20 PRINT CHR$(21): HOME : NORMAL :D$ = CHR$(4):KP = -16384:KR = -16368:CS = -958:BP$ = CHR$(7): PRINT D$"PREFIX/"
30 MACHID = PEEK(49048):IIEIIC = 1:BO$ = "________________": IF MA <128 THEN BO$ = " ":IIEIIC = 0
40 FOR I = 0 TO 9: READ A: POKE I,A: NEXT
50 DATA 169,0,106,106,144,2,230,9,96,0
60 POKE 1,MACHID: CALL 0:SCRN80 = PEEK(9)
70 IF NOT IIEIIC THEN 180
80 PRINT D$"-BIG.U": REM 80-COLUMN SCREEN
90 FOR I = 0 TO 2000: NEXT
100 VTAB 23: PRINT
110 FOR I = 1 TO 28:X = PEEK(KP): ON X = 155 GOTO 170: POKE 1403,I -1: PRINT " ";: POKE 1403,I
120 PRINT "- p e s r s e u n - ";
130 POKE 1403,53 -I:C = PEEK(49200)
140 PRINT " l a e p e s r t r ";: NEXT
150 POKE 1403,28: PRINT "- please press return -";
160 WAIT KP,128:X = PEEK(KP): IF X < >141 AND X < >155 THEN 160
170 POKE KR,0
180 HOME : PRINT CHR$(21): PRINT D$"PREFIX/"
190 SPEED= 255: POKE 49166,0: ONERR GOTO 350
200 VTAB 1: HTAB 2: PRINT LEFT$(BO$,13): HTAB 2: INVERSE : PRINT " THE BIG U ": HTAB 3: NORMAL : PRINT : HTAB 3: PRINT "COPYRIGHT (C) 1985": HTAB 3: PRINT "BY RANDY BRANDT": HTAB 3: PRINT "BEAGLE BROS, INC."
210 PRINT : VTAB 2: HTAB 39 - LEN(V$): PRINT " "V$: VTAB 7: HTAB 2: PRINT BO$
220 HTAB 2: INVERSE : PRINT " RUN A PROGRAM: ": NORMAL : PRINT : PRINT " FILE.MOVER": PRINT : PRINT " CRT.WRITER": PRINT : PRINT " KEYCAT.80": PRINT : PRINT " SEE CATALOG"
230 PRINT : PRINT " NOTES (MANUAL UPDATE)": PRINT : PRINT " QUIT"
240 VTAB 21: HTAB 2: PRINT BO$;BO$
250 HTAB 2: INVERSE : PRINT " PLEASE SELECT ONE OF THE ABOVE ";: NORMAL : CALL CS: VTAB 22
260 GOSUB 370: ON A$ = "Q" GOTO 320: ON A$ = "S" GOTO 330
270 ON A$ = "F" GOTO 280: ON A$ = "C" GOTO 290: ON A$ = "N" GOTO 310: ON A$ = "K" GOTO 300: PRINT CHR$(7);: GOTO 260
280 PRINT : ON IIEIIC = 0 GOTO 400: PRINT D$"-FILE.MOVER"
290 PRINT : ON IIEIIC = 0 GOTO 400: PRINT D$"-CRT.WRITER"
300 PRINT : ON SCRN80 = 0 GOTO 390: PRINT : PRINT D$"-KEYCAT.80": END
310 PRINT : PRINT D$"-NOTES"
320 VTAB 20: PRINT : CALL -958: PRINT : END
330 HOME : PRINT D$"CAT"
340 PRINT : PRINT "PRESS TO CONTINUE: ";: GET X$: GOTO 180
350 IF PEEK(222) = 6 THEN VTAB 21: PRINT : CALL CS: PRINT BP$: PRINT " CAN'T FIND IT; PRESS A KEY ";: GET X$: GOTO 240
360 POKE 216,0: RESUME
370 WAIT KP,128:A = PEEK(KP): POKE KR,0:A = A -128: IF A >95 THEN A = A -32
380 A$ = CHR$(A): RETURN
390 VTAB 21: PRINT : CALL CS: PRINT BP$: PRINT " 80-COLUMNS REQUIRED; PRESS A KEY ";: GET X$: GOTO 240
400 VTAB 21: PRINT : CALL CS: PRINT BP$: PRINT " IIE OR IIC REQUIRED; PRESS A KEY ";: GET X$: GOTO 240
410 VTAB 22: PRINT : CALL -958: END