Notes

Disk info for Volume_043_Original_System_Master_Disks.dsk:

File Name: riag_005_Volume_043_-_Original_System_Master_Disks/Volume_043_Original_System_Master_Disks.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 33792
Used Space (bytes): 109568
Physical Size (KB): 140
Free Space (KB): 33
Used Space (KB): 107
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 132
Used Sectors: 428
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Volume_043_Original_System_Master_Disks.dsk:

riag_005_Volume_043_-_Original_System_Master_Disks/Volume_043_Original_System_Master_Disks.dsk DISK VOLUME #254
* A 002 HELLO
* A 015 COPY
* A 028 FINANCE I
* B 009 UPDATE 3.2
* A 026 PENNY ARCADE
* A 047 LEMONADE
* B 003 CHAIN
* A 009 COLOR DEMOSOFT
* A 028 LITTLE BRICK OUT
* A 003 MAKE TEXT
* A 003 RETRIEVE TEXT
* A 010 EXEC DEMO
* A 010 RANDOM
* T 003 APPLE PROMS
* A 039 RENUMBER INSTRUCTIONS
* A 014 RENUMBER
* A 006 BRIAN'S THEME
* A 058 HOPALONG CASSIDY
* A 051 PHONE LIST
DOS 3.3 format; 33,792 bytes free; 109,568 bytes used.

Text found in Volume_043_Original_System_Master_Disks.dsk/APPLE PROMS.txt:

75
DEL 1000,1250
SAVE RANDOM
HOME
RUN
PARALLEL PRINT,256,8,500
COMMUNICATIONS,256,8,1250
(NOT AVAILABLE),256,8,0
(NOT AVAILABLE),256,8,0
DISK BOOT,256,8,432
STATE MACHINE,256,8,460
SERIAL PRINTER1,256,8,878
SERIAL PRINTER2,512,8,741
CENTRONICS,256,8,1290

Text found in Volume_043_Original_System_Master_Disks.dsk/BRIAN'S THEME.bas:

10 HOME : REM CLEAR THE TEXT WINDOW
11 TEXT : POKE 216,0: REM TURN OFF ONERR
15 VTAB 7: HTAB 15: PRINT "BRIAN'S THEME"
20 VTAB 9: HTAB 17: PRINT " BY"
25 VTAB 11: HTAB 16: PRINT "BRIAN HOWARD"
30 VTAB 15: PRINT " COPYRIGHT 1979, APPLE COMPUTER INC."
35 VTAB 23: HTAB 9: PRINT "PRESS RETURN TO CONTINUE...";
40 GET A$: IF A$ < > CHR$(13) THEN 40
80 HOME : REM CLEAR THE TEXT AREA
100 VTAB 22: REM MOVE CURSOR TO MIDDLE
120 HGR : REM SET HIGH RESOLUTION GRAPHICS MODE
140 A = RND(1) *279: REM PICK AN X FOR "CENTER"
160 B = RND(1) *159: REM PICK A Y FOR "CENTER"
180 I% = ( RND(1) *4) +2: REM PICK A STEP SIZE
190 HOME : VTAB 22
200 HTAB 15: PRINT "STEPPING BY ";I%
210 VTAB 24: PRINT " ";
220 FOR X = 0 TO 278 STEP I%: REM STEP THROUGH X VALUES
240 FOR S = 0 TO 1: REM 2 LINES, FROM X AND X+1
260 HCOLOR= 3 *S: REM FIRST LINE BLACK, NEXT WHITE
280 REM DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE
300 HPLOT X +S,0 TO A,B TO 279 -X -S,159
310 IF PEEK( -16384) = 155 THEN 31111
320 NEXT S,X
340 FOR Y = 0 TO 158 STEP I%: REM STEP THROUGH Y VALUES
360 FOR S = 0 TO 1: REM 2 LINES, FROM Y AND Y+1
380 HCOLOR= 3 *S: REM FIRST LINE BLACK, NEXT WHITE
400 REM DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE
420 HPLOT 279,Y +S TO A,B TO 0,159 -Y -S
430 IF PEEK( -16384) = 155 THEN 31111
440 NEXT S,Y
460 FOR PAUSE = 1 TO 1500: NEXT PAUSE: REM DELAY
480 GOTO 120: REM DRAW A NEW PATTERN
31111 POKE -16298,0: REM TURN OFF HI-RES
31112 POKE -16388,0: REM CLEAR KBD STROBE
31115 TEXT : CALL -936: TEXT : END

Text found in Volume_043_Original_System_Master_Disks.dsk/CHAIN.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 85 03 20 A6 03 A9 07 85 8F A5 69 A6 6A 85 9D .. &.). ..%i&j..
$000010 86 9E E4 6C D0 04 C5 6B F0 05 20 7E 02 F0 F3 85 ..dlP.Ek p. ~.ps.
$000020 9F 86 A0 A9 03 85 8F A5 9F A6 A0 E4 6E D0 07 C5 .. )...% .& dnP.E
$000030 6D D0 03 4C E0 02 85 9D 86 9E A0 00 B1 9D AA C8 mP.L`... .. .1.*H
$000040 B1 9D 08 C8 B1 9D 65 9F 85 9F C8 B1 9D 65 A0 85 1..H1.e. ..H1.e .
$000050 A0 28 10 D3 8A 30 D0 C8 B1 9D A0 00 0A 69 05 65 (.S.0PH 1. ..i.e
$000060 9D 85 9D 90 02 E6 9E A6 9E E4 A0 D0 04 C5 9F F0 .....f.& .d P.E.p
$000070 BA 20 88 02 F0 F3 B1 9D 30 46 C8 B1 9D 10 41 C8 : ..ps1. 0FH1..AH
$000080 B1 9D F0 3C C8 B1 9D AA C8 B1 9D 85 9C 86 9B C5 1.p5!.<5
$000160 69 95 42 CA F0 EF A0 00 20 2C FE 6C AE 03 18 B5 i.BJpo . ,~l...5
$000170 00 65 9D 95 71 E8 B5 00 65 9E 95 71 60 AD 00 E0 .e..qh5. e..q`-.`
$000180 A0 0B C9 4C F0 02 A0 17 A2 0B B9 B8 03 9D AC 03 .ILp. . ".98..,.
$000190 88 CA 10 F6 60 6C AC 03 6C B2 03 6C B0 03 6C B4 .J.v`l,. l2.l0.l4
$0001A0 03 6C B6 03 00 00 00 00 00 00 00 00 00 00 00 00 .l6..... ........
$0001B0 65 D6 D2 D7 FB DA 5C DB 84 E4 9A D3 65 0E D4 0F eVRW{Z\[ .d.Se.T.
$0001C0 FC 12 5F 13 7B 1C 9A 0B .. .. .. .. .. .. .. .. |._.{...
** END **

Text found in Volume_043_Original_System_Master_Disks.dsk/COLOR DEMOSOFT.bas:

30 U = 9:D = 3:E = -16384:F = -16368:G = -16287:H = -16286:Z = 127
100 POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 773,4: POKE 774,198: POKE 775,7
110 POKE 776,240: POKE 777,8: POKE 778,202: POKE 779,208: POKE 780,246: POKE 781,166: POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,03: POKE 786,96
200 TEXT : HOME : PRINT : POKE F,0
220 A$ = "APPLE DEMONSTRATION PROGRAMS": GOSUB 2000: PRINT
230 PRINT " TO OPERATE A DEMONSTRATION, TYPE"
240 PRINT "ITS NUMBER. THEN TYPE THE KEY MARKED"
250 PRINT "'RETURN' AT THE RIGHT EDGE OF THE KEY-"
260 PRINT "BOARD. TYPE THE 'RETURN' KEY TO STOP"
270 PRINT "ANY DEMONSTRATION.": PRINT : PRINT
290 PRINT "1.";
300 A$ = "STANDARD COLOR NAMES": GOSUB 2000
310 PRINT "2.";
320 A$ = "STANDARD COLOR NUMBERS": GOSUB 2000
330 PRINT "3.";
340 A$ = "KALEIDOSCOPE": GOSUB 2000
350 PRINT "4.";
360 A$ = "SKETCHING SCREEN": GOSUB 2000
370 PRINT : PRINT
380 INPUT "WHICH WOULD YOU LIKE?";A$
390 IF LEN(A$) = 0 THEN GOTO 200
395 N = ASC(A$) -48
400 IF N <1 OR N >4 THEN GOTO 200
410 ON N GOTO 500,600,700,800
450 IF PEEK(E) Z THEN 200
750 COLOR= J *3/(I +3) +I *W/12
760 PLOT I,K: PLOT K,I: PLOT 40 -I,40 -K: PLOT 40 -K,40 -I
770 PLOT K,40 -I: PLOT 40 -I,K: PLOT I,40 -K: PLOT 40 -K,I
780 NEXT J,I,W: GOTO 450
800 HOME :A$ = "USE THE GAME CONTROLS AND BUTTONS.": GOSUB 2000
810 A$ = "THE BUTTONS CLEAR THE TV AND CHANGE": GOSUB 2000
820 A$ = "THE DISPLAYED COLOR. TRY ONE NOW.": GOSUB 2000
900 IF PEEK(G) >Z OR PEEK(H) >Z THEN 930
910 IF PEEK(E) >Z THEN 200
920 GOTO 900
930 HOME : GR
940 P = PDL(0):X = INT(P/6): IF X >39 THEN X = 39
950 I = PDL(1):Y = INT(I/6): IF Y >39 THEN Y = 39
960 P = INT((I +P)/2 +9): IF P >255 THEN P = 255
970 GOSUB 1500
980 VTAB 21: PRINT "X IS ";X;" ": PRINT "Y IS ";Y;" "
990 IF PEEK(E) >Z THEN 200
1000 IF PEEK(G) >Z THEN GR
1010 IF PEEK(H) >Z THEN U = (U +1)
1015 IF U = 16 THEN U = 0
1020 COLOR= U: PLOT X,Y: GOTO 940
1500 POKE 6,P: POKE 7,D: CALL 768: RETURN
2000 HTAB ((40 - LEN(A$))/2 +1): PRINT A$: PRINT : RETURN
3000 GR : FOR I = 0 TO 31: COLOR= I/2: VLIN 0,39 AT I +3: NEXT I
3010 COLOR= 5: VLIN 0,39 AT 2: VLIN 0,39 AT 35: HLIN 2,35 AT 0: HLIN 2,35 AT 39: RETURN
4000 FOR I = 1 TO LEN(A$)
4010 HTAB 2 *I +2: PRINT MID$ (A$,I,1);
4020 NEXT I: RETURN

Text found in Volume_043_Original_System_Master_Disks.dsk/COPY.bas:

5 TEXT : HOME
10 HTAB (7): PRINT "COPY MAY BE SAVED ONLY"
20 HTAB (7): PRINT "BEFORE IT HAS BEEN RUN": PRINT
30 REM COPYRIGHT 1979 BY
40 REM APPLE COMPUTER INC
75 PRINT "MAXFILES1"
80 POKE 106, PEEK(116) -1: POKE 105, PEEK(115)
84 POKE 108, PEEK(116) -1: POKE 110, PEEK(116) -1
88 POKE 107, PEEK(115): POKE 109, PEEK(115)
90 GOSUB 63999
95 CALL PEEK(1015) *256 + PEEK(1014)
100 PRINT "APPLE DISKETTE DUPLICATION PROGRAM": VTAB (6): PRINT " ... PLEASE INSERT ORIGINAL ...": VTAB (8)
110 CS = PEEK(766)/16:LM = 0
130 I$ = " ORIGINAL":N = CS:AD = PEEK(1016) + PEEK(1017) *256 -179:A = AD: GOSUB 240:MS = N:N = PEEK(767): GOSUB 250:MD = N:I$ = "DUPLICATE":N = MS:A = A +1
140 LM = 1
150 GOSUB 240:SS = N:N = 1: IF MS = SS THEN N = 3 -MD
155 GOSUB 250:SD = N:: IF MS = SS AND MD = SD THEN 290
160 PRINT : PRINT : HTAB 10: PRINT "ORIGINAL IN SLOT ";MS: HTAB 21: PRINT "DRIVE ";MD: HTAB 9: PRINT "DUPLICATE IN SLOT ";SS: HTAB 21: PRINT "DRIVE ";SD
170 IF PEEK(978) <64 THEN PR# 0: IN# 0: POKE 1012,0
180 VTAB ( PEEK(37) +3): HTAB 11: PRINT "INSERT DUPLICATE THEN"; CHR$(7): PRINT "--- PRESS 'RETURN' KEY TO BEGIN COPY ---": GET I$
182 IF ASC(I$) = 3 THEN 230
183 CALL PEEK(1017) *256 + PEEK(1016)
185 IF PEEK(978) <64 THEN CLEAR :AD = PEEK(1017) *256 + PEEK(1016) +56
190 FLASH : IF PEEK(AD +12) = 0 THEN PRINT "****** UNABLE TO READ ******"; CHR$(7); CHR$(7); CHR$(7): GOTO 220
200 IF PEEK(AD +11) < = 11 THEN PRINT "****** UNABLE TO WRITE ******"; CHR$(7); CHR$(7); CHR$(7): GOTO 220
210 IF PEEK(AD +4) <68 THEN PRINT "***** DUPLICATE WRITE PROTECTED *****"; CHR$(7); CHR$(7); CHR$(7): GOTO 220
220 NORMAL : PRINT : INPUT "DO YOU WISH TO MAKE ANOTHER COPY?";I$: IF LEN(I$) = 0 THEN 230
222 IF LEFT$(I$,1) < >"Y" THEN 230
225 VTAB 4: CALL -958: IF PEEK(978) >64 THEN 160
227 GOTO 100
230 PRINT "MAXFILES3": END
240 PRINT : GOSUB 280: PRINT N;: NORMAL : HTAB 1: PRINT I$;" SLOT: ";:L = 1:H = 7: GOSUB 260: POKE A,N *16: RETURN
250 GOSUB 280: PRINT N;: NORMAL : HTAB 4: PRINT " DRIVE: ";:L = 1:H = 2: GOSUB 260: POKE A +9, PEEK(A) +N -1: RETURN
260 IF LM = 1 THEN 270
262 GET K$: IF K$ = CHR$(13) THEN 270
263 IF K$ < CHR$(48 +L) OR K$ > CHR$(48 +H) THEN 262
264 N = ASC(K$) -48
270 HTAB 20: PRINT N;" ": RETURN
280 INVERSE : HTAB 22: PRINT "DEFAULT = ";: POKE ( PEEK(41) *256 + PEEK(40) +14),96: RETURN
290 PRINT : PRINT " SINGLE DRIV E COPY NOT POSSIBLE."; CHR$(7); CHR$(7); CHR$(7): PRINT : GOTO 110
63998 REM ***** DO NOT CHANGE ***** LINE 63999 .
63999 CALL PEEK(122) *256 + PEEK(121) +35: RETURN

Text found in Volume_043_Original_System_Master_Disks.dsk/EXEC DEMO.bas:

100 LET Q$ = CHR$(34): REM 34 IS THE ASCII CODE FOR A QUOTATION MARK (")
110 TEXT : HOME : VTAB 2: HTAB 12
120 INVERSE : PRINT "<< EXEC DEMO >>": NORMAL : PRINT : PRINT
130 PRINT "THIS PROGRAM CREATES A SEQUENTIAL TEXT"
140 PRINT "FILE NAMED "Q$"DO'ER"Q$" CONTAINING SEVERAL"
150 PRINT "STRINGS, EACH A LEGAL APPLE II COMMAND."
160 PRINT : PRINT "WHEN YOU TYPE"
170 PRINT "EXEC DO'ER"
180 PRINT "THEN THE COMMANDS IN FILE DO'ER TAKE"
190 PRINT "CONTROL OF YOUR COMPUTER. EACH COMMAND"
200 PRINT "WILL BE EXECUTED JUST AS IF IT HAD BEEN"
210 PRINT "TYPED AT THE KEYBOARD. THE DOS MANUAL"
220 PRINT "DESCRIBES THE PROGRAM IN MORE DETAIL."
230 PRINT : HTAB 10
240 INVERSE : PRINT "<< HAPPY EXECUTING >>": NORMAL : PRINT
250 PRINT "PRESS THE SPACE BAR TO MAKE THIS"
260 PRINT "PROGRAM CREATE THE FILE DO'ER."
270 PRINT
280 PRINT "IF YOU WISH TO STOP THIS PROGRAM NOW,"
285 PRINT "YOU MAY PRESS THE ESC KEY."
288 REM END INSTRUCTIONS AND WAIT FOR KEY TO BE PRESSED.
290 GET A$: IF A$ = CHR$(27) THEN END : REM ESC KEY PRESSED
300 IF A$ = CHR$(32) THEN 320: REM SPACE BAR PRESSED
310 PRINT CHR$(7);: GOTO 290: REM BEEP AND TRY AGAIN
320 HOME : PRINT : REM PROGRAM STARTS HERE
330 LET D$ = CHR$(4): REM CTRL-D
340 PRINT D$"MON C,I,O"
350 PRINT D$"OPEN DO'ER"
360 PRINT D$"WRITE DO'ER"
370 PRINT "FP"
380 PRINT "MON C,I,O"
385 PRINT "REM HERE IS A PROGRAM"
390 PRINT
395 PRINT "100 TEXT:HOME:VTAB 5"
400 PRINT "110 PRINT"Q$"HERE'S A NEW PROGRAM"Q$
410 PRINT "120 END"
415 PRINT
420 PRINT "SAVE NEW PROGRAM!!"
425 PRINT
430 PRINT "LIST : REM NEW PROGRAM!!"
435 PRINT "REM PAUSE TO LOOK AT LISTING"
440 PRINT "FOR X=1 TO 8000: NEXT X"
450 PRINT "INT"
460 PRINT "MON C,I,O"
470 PRINT "LOAD COLOR DEMO"
480 PRINT "LIST"
490 PRINT "FP"
495 PRINT "PRINT"Q$"PAUSE TO LOOK AT LISTING"Q$
500 PRINT "FOR X=1 TO 4000:NEXT X"
505 PRINT "MON C,I,O"
510 PRINT "CALL -155 : REM JUMPS TO MONITOR"
520 PRINT "800.820 I 821.840"
530 PRINT "FP"
535 PRINT "PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING"Q$
540 PRINT "FOR X=1 TO 4000:NEXT X"
545 PRINT "MON C,I,O"
550 PRINT "CATALOG"
560 PRINT "RUN NEW PROGRAM!!"
565 PRINT
570 PRINT "115 PRINT"Q$"WE CAN EVEN CHANGE IT"Q$"
575 PRINT
580 PRINT "LIST : REM EVEN MORE RECENT PROGRAM!!"
585 PRINT "REM PAUSE TO LOOK AT NEW LISTING"
590 PRINT "FOR X=1 TO 8000:NEXT X"
600 PRINT "SAVE EVEN MORE RECENT PROGRAM!!"
610 PRINT "DELETE NEW PROGRAM!!"
620 PRINT "CATALOG"
630 PRINT D$"CLOSE DO'ER"
640 PRINT : PRINT : INVERSE : PRINT "IT'S DONE!!!": NORMAL
650 PRINT
660 PRINT "YOUR APPLE'S READY TO DO'ER IT'S THING!"
670 PRINT "ALL YOU HAVE TO DO IS TYPE"
680 PRINT "EXEC DO'ER"
690 PRINT "PRESS THE RETURN KEY, AND SIT BACK."

Text found in Volume_043_Original_System_Master_Disks.dsk/FINANCE I.bas:

0 W = 1: GOTO 10000
1 DT = N *(C -P *(W +N) ^ -M)/(W -(W +N) ^ -M): IF D -DT >.001 THEN N = N *D/DT: GOTO 1
2 RETURN
3 DT = (N *(C -P *(W +N) ^ -M))/((W -(W +N) ^ -M) *(W +N)): IF DT -D >.001 THEN N = N *D/DT: GOTO 3
4 RETURN
5 DT = (C -P) *N/((W +N) ^(M +W) -(W +N)): IF DT -D >.001 THEN N = N *DT/D: GOTO 5
6 RETURN
7 FOR Z = 0 TO 2:TT = 11 *Z +17:V = V(Z): IF V > -1 THEN GOSUB 10:V(Z) = INT((V(Z) +.005) *100)/100: NEXT Z: PRINT :ND = 0: RETURN
8 PRINT TAB( TT -6)"NO ANS";: NEXT : PRINT : RETURN
10 IF V >1E8 THEN V$ = "*.**":KK = 2: GOTO 13
11 IF V <.005 THEN V$ = ".00":KK = 1: GOTO 13
12 V$ = STR$(V +.005): FOR KK = 1 TO LEN(V$): IF MID$ (V$,KK,1) < >"." THEN NEXT
13 PRINT TAB( TT -KK -2 +3 *ND) LEFT$(V$,KK +2 -3 *ND);: IF LEN(V$) -KK <2 THEN PRINT RIGHT$(".00",KK - LEN(V$) +2);
14 RETURN
15 FOR U = 0 TO 38: PRINT "-";: NEXT : PRINT : RETURN
40 QQ = 0:ZZ = AA: GOSUB 97: GOTO 45
43 ZZ = GG
45 FOR DD = 1 TO ZZ
50 IN = N(A) *(BA -(BB = 0) *(A = 1) *BA +(A = 2) *D(A)):PR = D(A) -(A <2) *IN:BA = BA -(A <2) *PR +(A = 2) *(IN +PR):BB = BB +1
65 IF JJ = W THEN V = BB:ND = W:TT = 4: GOSUB 10:ND = 0:V(0) = IN:V(1) = PR:V(2) = BA: GOSUB 7:LL = LL +W: GOSUB 94
70 T1 = T1 +IN:T2 = T2 +PR: IF BB = M(A) THEN 80
75 NEXT
80 GOSUB 15:XX = XX +W: PRINT "YR";:TT = 5:ND = 1:V = XX: GOSUB 10:ND = 0:V(0) = T1:V(1) = T2:V(2) = BA: GOSUB 7:T3 = T3 +T1:T4 = T4 +T2:T1 = 0:T2 = 0
82 PRINT "CUM";:V(0) = T3:V(1) = T4: GOSUB 7:LL = LL +4: GOSUB 15: GOSUB 94: IF QQ = 1 THEN 95
85 IF BB = M(A) THEN 91
90 GOTO 43
91 QQ = 1: IF P(A) >.005 THEN IN = (A = 0) *0 +(A = 1) *N(A) *BA +(A = 2) *0:PR = (A = 0) *BA +(A = 1) *(P(A) -IN) +(A = 2) *P(A):BA = (A = 0) *0 +(A = 1) *(BA -PR) +(A = 2) *(BA +P(A)): GOTO 93
92 GOTO 95
93 PRINT "BLN";:V(0) = IN:V(1) = PR:V(2) = BA: GOSUB 7:T3 = T3 +IN:T4 = T4 +PR:Z = W: GOTO 82
94 IF LL <15 OR (BB >M(A) -7 AND LL <17) THEN RETURN
95 PRINT "HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";: GET S$: PRINT :LL = 0:S = ( ASC(S$) < >13) *2
96 IF S = 2 OR QQ = 1 THEN 15020
97 HOME : PRINT TAB( 11)G$: PRINT TAB( 6)B$(A);F$;"AMORTIZATION SCHEDULE": GOSUB 15: PRINT "PMT# INTEREST PRINCIPAL BALANCE": GOSUB 15: RETURN
100 Q = 0: INPUT " ? ";S$:S = VAL(S$): IF S OO THEN PRINT H$:Q = 1: RETURN
110 RETURN
1000 GOSUB 20000: PRINT ""; TAB( 13)B$(0); TAB( 23)B$(1); TAB( 32)B$(2): GOSUB 15
1010 GOSUB 1100: GOTO 1110
1100 IF B < >0 THEN X1 = (W -(W +N) ^ -M)/N:X2 = (W +N) ^ -M:X3 = D *X1:X4 = P *X2:X5 = W +N: RETURN
1110 PRINT : PRINT A$;: IF B < >3 THEN FOR Z = 0 TO 2:V(Z) = C: NEXT : GOTO 1130
1120 V(0) = (R = 1) *(X3 +X4) +(R = 2) *D *X2:V(1) = (R = 1) *(X3 *X5 +X4) -(R = 2):V(2) = (R = 1) *(X3 *X5/X2 +P) +(R = 2) *D/X2
1130 GOSUB 7: FOR Z = 0 TO 2:C(Z) = V(Z): NEXT
1200 PRINT : PRINT "PMT/DEP";: IF B < >W THEN FOR Z = 0 TO 2:V(Z) = D: NEXT : GOTO 1220
1210 V(0) = (R = 1) *((C -X4)/X1 -.005) +(R = 2) *C/X2:V(1) = (R = 1) *((C -X4)/(X1 *X5) -.005) -(R = 2):V(2) = (R = 1) *((C -P) *X2/(X1 *X5) -.005) +(R = 2) *(C -P) *X2
1220 GOSUB 7: FOR Z = 0 TO 2:D(Z) = V(Z): NEXT
1300 PRINT : PRINT "# PMTS";: IF R = 2 THEN V(0) = 1:V(1) = -1:V(2) = 1: GOTO 1320
1305 IF B < >2 THEN FOR Z = 0 TO 2:V(Z) = M:M(Z) = M: NEXT : GOTO 1320
1310 V(0) = -( LOG((N *C -D)/(N *P -D)))/ LOG(X5):V(1) = -( LOG((C *N -D *(X5))/(P *N -D *(X5))))/ LOG(X5):V(2) = LOG(((C -P) *N)/(D *(X5)) +W)/ LOG(X5): FOR Z = 0 TO 2:V(Z) = INT(V(Z)): NEXT
1315 FOR Z = 0 TO 2:M(Z) = V(Z): NEXT
1320 ND = 1: GOSUB 7
1325 IF B = 0 THEN 1400
1330 IF R < >2 THEN 1400
1335 IF D(0) >C(0) THEN 1345
1340 V(2) = LOG(C(2)/D(2))/ LOG(X5):V(0) = -W:V(1) = -W: GOTO 1360
1345 V(0) = LOG(D(0)/C(0))/ LOG(X5):V(1) = -W:V(2) = -W
1360 FOR Z = 0 TO 2:M(Z) = V(Z): NEXT
1400 IF R = 2 THEN 1500
1410 PRINT : PRINT "BALLOON";: IF B = 0 THEN FOR Z = 0 TO 2:V(Z) = P: NEXT : GOTO 1450
1420 D = D(0):C = C(0):M = M(0): GOSUB 1100:V(0) = (C -X3)/X2: IF B = 4 AND V(0) <0 THEN V(0) = -W: GOTO 1430
1422 IF V(0) <0 THEN V(0) = 0
1430 C = C(1):D = D(1):M = M(1): GOSUB 1100:V(1) = (C -X3 *X5)/X2: IF B = 4 AND V(1) <0 THEN V(1) = -W: GOTO 1440
1432 IF V(1) <0 THEN V(1) = 0
1440 C = C(2):D = D(2):M = M(2): GOSUB 1100:V(2) = C -X3 *X5/X2: IF B = 4 AND V(2) <0 THEN V(2) = -W: GOTO 1445
1442 IF V(2) <0 THEN V(2) = 0
1445 FOR Z = 0 TO 2:P(Z) = V(Z): NEXT
1450 GOSUB 7
1500 PRINT : PRINT "APR %";: IF B < >0 THEN FOR Z = 0 TO 2:V(Z) = F *100:N(Z) = N: NEXT : GOTO 1595
1510 IF M *D +P < = C THEN V(0) = -W:V(1) = -W: GOTO 1570
1520 IF R = 2 THEN V(0) = (D/C) ^(W/M) -W:V(1) = (C/D) ^(W/M) -W: GOTO 1570
1530 N = (((D *M +P)/C) ^(W/T) -W)/GG: GOSUB 1:V(0) = N
1560 N = ((C/D *M) ^(W/T) -W)/GG: GOSUB 3:V(1) = N
1570 IF M *D +P > = C THEN V(2) = -1: GOTO 1593
1580 IF R = 2 THEN V(2) = ((C -P)/D) ^(W/M) -W: GOTO 1593
1590 N = (((C -P)/(D *M)) ^(W/T) -W)/GG: GOSUB 5:V(2) = N
1593 FOR Z = 0 TO 2:N(Z) = V(Z):V(Z) = 100 *N(Z) *GG: NEXT
1595 GOSUB 7
1597 IF R = 2 THEN 1700
1600 PRINT : PRINT "COMPOUNDED ";D$(G);
1620 IF B < >2 THEN PRINT " OVER "; INT(M *100)/100;F$;L$(G);
1630 PRINT : PRINT : PRINT "BASED ON ";O;" DAYS PER ACCOUNTING YEAR": GOTO 15000
1700 PRINT : PRINT "# "L$(G);: FOR Z = 0 TO 2:V(Z) = M(Z): NEXT : GOSUB 7: GOTO 1600
10000 DIM B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),P(2),M(2):B$(0) = "LOAN":B$(1) = "LEASE":B$(2) = "SAVINGS"
10002 C$(0) = "PAYMENT":C$(1) = C$(0):C$(2) = "DEPOSIT":D$(0) = "YEARLY":D$(1) = "QUARTERLY":D$(2) = "MONTHLY":D$(3) = "WEEKLY":D$(4) = "DAILY"
10005 I$ = "NUMBER OF":A$ = "AMOUNT":F$ = " ":G$ = "APPLE COMPUTER INC":H$ = "":J$ = "AMORTIZATION SCHEDULE":K$ = "S":L$(0) = "YEARS":L$(1) = "QUARTERS":L$(2) = "MONTHS":L$(3) = "WEEKS":L$(4) = "DAYS"
10010 GOSUB 20000: PRINT "THIS PROGRAM CALCULATES ";A$;", ";C$(0);",": PRINT C$(2);", INTEREST RATE (APR), ";I$: PRINT : PRINT C$(0);K$;", BALLOON ";C$(0);K$;", AND ": PRINT : PRINT J$;K$;" FOR ";B$(0);"S, ";B$(1);K$
10020 PRINT "AND ";B$(2);"S ACCOUNTS."
10075 INPUT "HIT RETURN WHEN READY...";E$
10100 GOSUB 20000
10105 O = 365:LL = 0:BB = 0:Q = 0:P = 0: PRINT
10110 PRINT "YOU MAY CALCULATE ANY OF THE FOLLOWING:": PRINT "1 INTEREST RATE (APR)": PRINT "2 ";C$(0);"/";C$(2);F$;A$: PRINT "3 ";I$;F$;C$(0);"S/";C$(2);"S": PRINT "4 TOTAL ";A$;" OR,": PRINT "5 BALLOON ";C$(0)
10140 PRINT "WHICH (ENTER BY NUMBER PLEASE)";:PP = 1:OO = 5: GOSUB 100: IF Q THEN 10140
10145 B = S -1
10180 HOME : PRINT TAB( 10)G$: PRINT "OK..NOW I NEED TO KNOW THE FOLLOWING:"
10190 IF B = 0 THEN 10310
10220 PRINT "ANNUAL INTEREST RATE (APR) IN %";:PP = .005:OO = 1000: GOSUB 100:F = S/100: IF Q THEN 10220
10310 IF B = 2 THEN 10390
10340 PRINT "TERM OF THE ACCOUNT:": PRINT "YOU MAY ENTER ANY COMBINATION OF ";L$(0)",": PRINT L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."
10350 PP = 0:OO = 400: PRINT : PRINT I$;F$;L$(0);:Q = 0: GOSUB 100: IF NOT Q THEN H = S: PRINT I$;F$;L$(1);: GOSUB 100: IF NOT Q THEN I = S: PRINT I$;F$;L$(2);:OO = 1200: GOSUB 100: IF NOT Q THEN J = S: PRINT I$;F$;L$(3);:OO = 10E4: GOSUB 100: IF NOT Q THEN K = S: PRINT I$;F$;L$(4);:OO = 1E6: GOSUB 100
10355 IF NOT Q THEN L = S: GOTO 10390
10360 GOTO 10340
10390 HOME : PRINT ""
10400 PRINT "WITH INTEREST TO BE COMPOUNDED:": PRINT "1 ";D$(0): PRINT "2 ";D$(1): PRINT "3 ";D$(2): PRINT "4 ";D$(3): PRINT "5 ";D$(4): PRINT "WHICH";:PP = 1:OO = 5: GOSUB 100:G = S -1: IF Q THEN 10400
10405 GG = (G = 0) +(G = 1) *4 +(G = 2) *12 +(G = 3) *O/7 +(G = 4) *O
10415 IF K +L < = 0 AND G < = 3 THEN 10465
10420 PRINT "HOW MANY ";L$(4);" IN YOUR": PRINT "ACCOUNTING YEAR";:PP = 0:OO = 365: GOSUB 100:O = S: IF Q THEN 10420
10465 HOME : PRINT "WILL YOU BE MAKING:": PRINT "1 ";D$(G);F$;C$(0);"S/";C$(2);"S, OR": PRINT "2 A SINGLE ";C$(0);"/";C$(2);" ONLY...": PRINT "WHICH";:PP = 1:OO = 2: GOSUB 100:R = S: IF Q THEN 10465
10470 HOME : PRINT : PRINT
10484 IF B = 1 THEN 10520
10490 ON R GOTO 10495,10492
10492 PRINT "ENTER ";C$(0);"/";C$(2);F$;A$;:PP = 0:OO = 1E8: GOSUB 100:D = S: IF Q THEN 10492
10493 GOTO 10520
10495 PRINT "ENTER ";D$(G);F$;A$;:PP = 0:OO = 1E8: GOSUB 100:D = S: IF Q THEN 10495
10520 IF B = 3 THEN 10600
10550 PRINT "ENTER TOTAL ";A$;:PP = 0:OO = 1E8: GOSUB 100:C = S: IF Q THEN 10550
10600 IF R = 2 THEN 10700
10605 IF B = 4 THEN 10700
10620 PRINT "ENTER BALLOON ";A$;: GOSUB 100:P = S: IF Q THEN 10620
10700 ON G +1 GOSUB 10710,10720,10730,10740,10750: GOTO 10760
10710 M = H +I/4 +J/12 +K *7/O +L/O: RETURN
10720 M = H *4 +I +J/3 +K *O/28 +L *4/O: RETURN
10730 M = H *12 +I *3 +J +K *84/O +L *12/O: RETURN
10740 M = H *O/7 +I *O/28 +J *O/84 +K +L/7: RETURN
10750 M = H *O +I *O/4 +J *O/12 +K *7 +L
10760 M = INT(M):T = M/GG:N = F/GG
10800 GOTO 1000
15000 PRINT : ON R GOTO 15010,15015
15005 PRINT "ANOTHER ";J$;" (Y/N) ";: INPUT "? ";E$: IF LEFT$(E$,1) = "Y" THEN 15030
15007 GOTO 15020
15010 PRINT "LIKE AN ";J$;" (Y/N) ";: INPUT E$: IF LEFT$(E$,1) = "Y" THEN 15030
15015 INPUT "MORE (Y/N) ?";E$: IF LEFT$(E$,1) = "N" THEN END
15020 HOME : PRINT "1 ANOTHER PROBLEM": PRINT "2 ANOTHER SCHEDULE": PRINT "3 BACK TO THE FIRST PAGE": PRINT "4 QUIT": PRINT "WHICH";:PP = 1:OO = 4: GOSUB 100: IF Q THEN 15020
15025 ON S GOTO 10100,15027,1000,30000
15027 IF R = 2 THEN 16070
15030 HOME : PRINT : PRINT J$;" FOR:": PRINT "1 ";B$(0): PRINT "2 ";B$(1);", OR":: PRINT "3 ";B$(2);" ACCOUNT": PRINT : PRINT "WHICH";:PP = 1:OO = 3: GOSUB 100:A = S -1: IF Q THEN 15030
15060 HOME : PRINT "WOULD YOU LIKE:": PRINT "1 A COMPLETE ";J$;", OR": PRINT "2 A ";D$(0);" SUMMARY ONLY": PRINT "WHICH";:PP = 1:OO = 2: GOSUB 100:JJ = S: IF Q THEN 15060
15080 PRINT "FIRST SUBTOTAL AFTER ";C$(0);" NO.";:PP = 0:OO = 5000: GOSUB 100:AA = S: IF Q = 1 THEN 15080
15085 IF AA > = GG OR AA = 0 THEN AA = GG
15090 T1 = 0:T2 = 0:T3 = 0:T4 = 0:BA = 0:BB = 0:IN = 0:LL = 0:XX = 0:Q = 0
16060 BA = (A <2) *C(A) +(A = 2) *0: GOTO 40
16070 PRINT : PRINT "SORRY, YOU'VE PICKED A NONSENSE SCHEDULE": PRINT "PLEASE CHOOSE AGAIN.": FOR KK = 1 TO 1500: NEXT : PRINT "": GOTO 15020
20000 HOME : PRINT "BASIC FINANCE I-----------COPYRIGHT 1978": PRINT TAB( 10)G$: RETURN
30000 TEXT : END

Text found in Volume_043_Original_System_Master_Disks.dsk/HELLO.bas:

10 HOME : VTAB 3
20 PRINT " MASTER DISKETTE VERISON 3.2 PLUS": PRINT
25 HTAB 30: PRINT "1-JUNE-79": PRINT
30 PRINT " COPYRIGHT 1979 APPLE COMPUTER INC."
40 END

Text found in Volume_043_Original_System_Master_Disks.dsk/HOPALONG CASSIDY.bas:

1000 REM
1010 REM HI-RES PICTURE
1020 REM
1030 REM TEXT & GRAPHICS
1035 POKE -16297,0
1040 POKE -16304,0
1045 POKE -16301,0
1050 REM PAGE 1 SELECT
1060 POKE -16300,0
1070 REM DISPLAY HEADING
1080 HOME
1082 POKE 175,32: POKE 176,19: POKE 105,32: POKE 106,19
1084 POKE 107,32: POKE 108,19: POKE 109,32: POKE 110,19
1090 VTAB 22
1100 PRINT " HOPALONG CASSIDY"
1120 VTAB 24
1130 PRINT " PRESS TO EXIT";
1140 FOR I = 1 TO 5000: NEXT I
1150 REM FULL PAGE
1160 POKE -16302,0
1170 REM WATCH FOR "ESC"
1180 GET A$
1190 IF ASC(A$) < >27 THEN 1180
1200 HOME : POKE -16298,0: HOME : TEXT
1210 END

Text found in Volume_043_Original_System_Master_Disks.dsk/LEMONADE.bas:

1 LOMEM: 14080
5 GOSUB 10000: GOSUB 11000: GOSUB 16000: GOTO 135
10 REM <<< LEMONADE STAND >>>
15 REM
20 REM FROM AN ORIGINAL PROGRAM
30 REM BY BOB JAMISON, OF THE
40 REM MINNESOTA EDUCATIONAL
50 REM COMPUTING CONSORTIUM
60 REM * * *
70 REM MODIFIED FOR THE APPLE
80 REM FEBRUARY, 1979
90 REM BY CHARLIE KELLNER
135 DIM A(30),L(30),H(30),B(30),S(30),P(30),G(30)
150 P9 = 10
160 S3 = .15
170 S2 = 30
175 A2 = 2.00
194 C9 = .5
195 C2 = 1
300 REM START OF GAME
310 GOSUB 12000: FOR I = 1 TO N:B(I) = 0:A(I) = A2: NEXT
320 IF A$ = "Y" THEN GOSUB 13000: GOTO 400
330 GOSUB 14000
400 REM WEATHER REPORT
410 SC = RND(1)
420 IF SC <.6 THEN SC = 2: GOTO 460
430 IF SC <.8 THEN SC = 10: GOTO 460
440 SC = 7
460 IF D <3 THEN SC = 2
470 GOSUB 15000
490 TEXT : HOME
500 REM START OF NEW DAY
510 D = D +1
520 PRINT "ON DAY ";D;", THE COST OF LEMONADE IS ";
540 C = 2: IF D >2 THEN C = 4
550 IF D >6 THEN C = 5
560 PRINT "$.0";C: PRINT
570 C1 = C *.01
580 R1 = 1
600 REM CURRENT EVENTS
610 IF D < >3 THEN 650
620 PRINT "(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"
650 IF D < >7 THEN 700
660 PRINT "(THE PRICE OF LEMONADE MIX JUST WENT UP)"
700 REM AFTER 2 DAYS THINGS CAN HAPPEN
710 IF D >2 THEN 2000
800 REM INPUT VALUES
805 PRINT : POKE 34, PEEK(37)
810 FOR I = 1 TO N
815 A(I) = A(I) +.000000001
820 G(I) = 1:H(I) = 0
850 STI = A(I): GOSUB 4000: PRINT "LEMONADE STAND ";I; TAB( 26);"ASSETS ";STI$
855 PRINT
860 IF B(I) = 0 THEN 890
870 PRINT "YOU ARE BANKRUPT, NO DECISIONS"
875 PRINT "FOR YOU TO MAKE."
876 IF N = 1 AND A(1) 1000 THEN 903
902 GOTO 906
903 PRINT "COME ON, LET'S BE REASONABLE NOW!!!"
904 PRINT "TRY AGAIN"
905 GOTO 890
906 IF L(I) < > INT(L(I)) THEN 903
910 IF L(I) *C1 < = A(I) THEN 950
920 PRINT "THINK AGAIN!!! YOU HAVE ONLY ";STI$
930 PRINT "IN CASH AND TO MAKE ";L(I);" GLASSES OF"
932 PRINT "LEMONADE YOU NEED $";L(I) *C1;" IN CASH."
940 GOTO 890
950 PRINT
951 PRINT "HOW MANY ADVERTISING SIGNS (";S3 *100;" CENTS"
952 PRINT "EACH) DO YOU WANT TO MAKE ";
960 INPUT S(I)
961 IF S(I) <0 OR S(I) >50 THEN 963
962 GOTO 965
963 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN."
964 GOTO 950
965 IF S(I) < > INT(S(I)) THEN 963
970 IF S(I) *S3 < = A(I) -L(I) *C1 THEN 1010
975 PRINT
980 STI = A(I) -L(I) *C1: GOSUB 4000
985 PRINT "THINK AGAIN, YOU HAVE ONLY ";STI$
990 PRINT "IN CASH LEFT AFTER MAKING YOUR LEMONADE."
1000 GOTO 950
1010 PRINT : PRINT "WHAT PRICE (IN CENTS) DO YOU WISH TO"
1012 PRINT "CHARGE FOR LEMONADE ";
1015 INPUT P(I)
1020 IF P(I) <0 OR P(I) >100 THEN 1022
1021 GOTO 1024
1022 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN."
1023 GOTO 1010
1024 IF P(I) < > INT(P(I)) THEN 1022
1025 IF C5 = 1 THEN 1050
1050 VTAB 23: INPUT "WOULD YOU LIKE TO CHANGE ANYTHING?";A$
1060 IF LEFT$(A$,1) = "Y" THEN HOME :C5 = 1: GOTO 810
1100 HOME
1101 NEXT I
1110 C5 = 0: TEXT : HOME
1120 PRINT : IF SC = 10 AND RND(1) <.25 THEN 2300
1130 PRINT "$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"
1135 PRINT
1140 POKE 768,152: POKE 769,80: CALL 770
1142 POKE 768,128: POKE 769,160: CALL 770
1144 POKE 768,152: POKE 769,40: CALL 770
1146 POKE 768,144: POKE 769,80: CALL 770
1148 POKE 768,128: POKE 769,200: CALL 770
1180 REM CALCULATE PROFITS
1182 IF R2 = 2 THEN 2290
1183 IF R3 = 3 THEN 2350
1185 FOR I = 1 TO N
1186 IF A(I) <0 THEN A(I) = 0
1187 IF R2 = 2 THEN 1260
1190 IF P(I) > = P9 THEN 1220
1200 N1 = (P9 -P(I))/P9 *.8 *S2 +S2
1210 GOTO 1230
1220 N1 = ((P9 ^2) *S2/P(I) ^2)
1230 W = -S(I) *C9
1232 V = 1 -( EXP(W) *C2)
1234 N2 = R1 *(N1 +(N1 *V))
1240 N2 = INT(N2 *G(I))
1250 IF N2 < = L(I) THEN 1270
1260 N2 = L(I)
1270 M = N2 *P(I) *.01
1280 E = S(I) *S3 +L(I) *C1
1290 P1 = M -E
1300 A(I) = A(I) +P1
1310 IF H(I) = 1 THEN 2300
1320 PRINT
1321 IF B(I) < >1 THEN 1330
1326 PRINT "STAND ";I;: PRINT " BANKRUPT": GOSUB 18000
1327 GOTO 1390
1330 GOSUB 5000
1350 IF A(I) >C/100 THEN 1390
1360 PRINT "STAND ";I
1365 HOME : PRINT " ...YOU DON'T HAVE ENOUGH MONEY LEFT"
1370 PRINT " TO STAY IN BUSINESS YOU'RE BANKRUPT!"
1380 B(I) = 1
1382 GOSUB 18000: HOME
1385 IF N = 1 AND B(1) = 1 THEN 31111
1390 NEXT I
1395 R1 = 1
1396 R2 = 0
1400 GOTO 400
2000 REM RANDOM EVENTS
2010 IF SC = 10 THEN 2110
2030 IF SC = 7 THEN 2410
2040 IF RND(1) <.25 THEN 2210
2050 GOTO 805
2100 IF X1 = 1 THEN 805
2110 J = 30 + INT( RND(1) *5) *10
2112 PRINT "THERE IS A ";J;"% CHANCE OF LIGHT RAIN,"
2115 PRINT "AND THE WEATHER IS COOLER TODAY."
2120 R1 = 1 -J/100
2130 X1 = 1
2140 GOTO 805
2200 IF X2 = 1 THEN 805
2210 PRINT "THE STREET DEPARTMENT IS WORKING TODAY."
2220 PRINT "THERE WILL BE NO TRAFFIC ON YOUR STREET."
2230 IF RND( -1) <.5 THEN 2233
2231 R2 = 2
2232 GOTO 2250
2233 R1 = .1
2250 X2 = 1
2260 GOTO 805
2290 PRINT "THE STREET CREWS BOUGHT ALL YOUR"
2295 PRINT "LEMONADE AT LUNCHTIME!!"
2297 GOTO 1185
2300 REM THUNDERSTORM!
2310 X3 = 1:R3 = 0
2320 SC = 5: GOSUB 15000: TEXT : HOME
2330 PRINT "WEATHER REPORT: A SEVERE THUNDERSTORM"
2340 PRINT "HIT LEMONSVILLE EARLIER TODAY, JUST AS"
2350 PRINT "THE LEMONADE STANDS WERE BEING SET UP."
2360 PRINT "UNFORTUNATELY, EVERYTHING WAS RUINED!!"
2370 FOR J = 1 TO N:G(J) = 0: NEXT
2380 GOTO 1185
2400 IF X4 = 1 THEN 805
2410 X4 = 1
2430 PRINT "A HEAT WAVE IS PREDICTED FOR TODAY!"
2440 R1 = 2
2450 GOTO 805
3000 END
4000 REM STI => DOLLARS.CENTS
4010 STI = INT(STI *100 +.5)/100
4020 STI$ = "$" + STR$(STI)
4030 IF STI = INT(STI) THEN STI$ = STI$ +".0"
4040 IF STI = INT(STI *10 +.5)/10 THEN STI$ = STI$ +"0"
4050 RETURN
5000 VTAB 6: POKE 34,5
5002 PRINT " DAY ";D; TAB( 30);"STAND ";I: PRINT : PRINT
5010 PRINT " ";N2; TAB( 7);"GLASSES SOLD": PRINT
5012 STI = P(I)/100: GOSUB 4000: PRINT STI$; TAB( 7);"PER GLASS";
5014 STI = M: GOSUB 4000: PRINT TAB( 27);"INCOME ";STI$
5016 PRINT : PRINT : PRINT " ";L(I); TAB( 7);"GLASSES MADE": PRINT
5020 STI = E: GOSUB 4000: PRINT " ";S(I); TAB( 7);"SIGNS MADE"; TAB( 25);"EXPENSES ";STI$: PRINT : PRINT
5030 STI = P1: GOSUB 4000: PRINT TAB( 16);"PROFIT ";STI$: PRINT
5040 STI = A(I): GOSUB 4000: PRINT TAB( 16);"ASSETS ";STI$
5060 GOSUB 18000
5070 REM
5090 HOME : RETURN
10000 REM INITIALIZE
10010 IN# 0: PR# 0
10100 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202
10110 POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0
10190 RETURN
11000 REM INTRODUCTION
11100 TEXT : HOME : GR : COLOR= 12: FOR I = 0 TO 39: HLIN 0,39 AT I: NEXT : VTAB 2
11110 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";
11120 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";
11130 PRINT ";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";
11140 PRINT ";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";
11150 PRINT ";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";
11160 PRINT ";LLLL;LLLL;L;L;L;LL;L;LL;L;LL;L;LL;L;LLL";
11170 PRINT ";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";
11200 VTAB 11
11210 PRINT "LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";
11220 PRINT "LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";
11230 PRINT "LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";
11240 PRINT "LLLLLLLL;;;;;LL;LLLLL;L;LL;L;LL;LLLLLLLL";
11250 PRINT "LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";
11260 PRINT "LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";
11270 PRINT "LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";
11280 VTAB 23: PRINT " COPYRIGHT 1979 APPLE COMPUTER INC."
11300 GOSUB 11700: FOR I = 1 TO 2000: NEXT
11310 POKE 33,1: POKE 34,9: POKE 35,19
11320 FOR I = 39 TO 7 STEP -1: COLOR= 15: VLIN 18,37 AT I: COLOR= 12: IF I <39 THEN VLIN 18,36 AT I +1
11330 COLOR= 15: IF I <30 THEN VLIN 18,36 AT I +10
11340 COLOR= 12: IF I <29 THEN VLIN 18,37 AT I +11: POKE 32,I +11: VTAB 11: HTAB I +12: PRINT : READ A$: PRINT A$;
11350 FOR J = 14 TO I +I: NEXT : NEXT : FOR I = 1 TO 1000: NEXT
11360 COLOR= 13: VLIN 14,36 AT 12: FOR I = 36 TO 20 STEP -1: HLIN 8,16 AT I
11370 FOR J = 1 TO 50: NEXT : POKE 768,I *3 -12: POKE 769,12: CALL 770: NEXT : COLOR= 12: VLIN 14,19 AT 12
11400 POKE 32,0: POKE 33,40: POKE 34,20: POKE 35,23: VTAB 22
11410 FOR I = 1 TO 4000: NEXT :I = FRE(0)
11490 RETURN
11500 REM DATA
11510 DATA 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0
11520 DATA ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;L;LL;,;L;LL;,;;;LL;,,,,,*
11530 DATA 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0
11540 DATA 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0
11550 DATA 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0
11560 DATA 0,160,128,255,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0
11700 REM MUSIC
11710 READ I,J: IF J = 0 THEN RETURN
11720 POKE 768,I: POKE 769,J: CALL 770
11730 GOTO 11710
12000 REM TITLE PAGE
12100 TEXT : HOME : PRINT CHR$(7);
12110 PRINT "HI! WELCOME TO LEMONSVILLE, CALIFORNIA!": PRINT
12120 PRINT "IN THIS SMALL TOWN, YOU ARE IN CHARGE OF"
12130 PRINT "RUNNING YOUR OWN LEMONADE STAND. YOU CAN"
12140 PRINT "COMPETE WITH AS MANY OTHER PEOPLE AS YOU"
12150 PRINT "WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP"
12160 PRINT "TO YOU (THE OTHER STANDS' SALES WILL NOT"
12170 PRINT "AFFECT YOUR BUSINESS IN ANY WAY). IF YOU"
12180 PRINT "MAKE THE MOST MONEY, YOU'RE THE WINNER!!": PRINT
12190 PRINT "ARE YOU STARTING A NEW GAME? (YES OR NO)"
12200 VTAB 21: CALL -958: INPUT "TYPE YOUR ANSWER AND HIT RETURN ==> ";A$
12210 A$ = LEFT$(A$,1): IF A$ < >"Y" AND A$ < >"N" THEN PRINT CHR$(7);: GOTO 12200
12220 VTAB 23: CALL -958: INPUT "HOW MANY PEOPLE WILL BE PLAYING ==> ";N$
12230 N = VAL(N$): IF N <1 OR N >30 THEN PRINT CHR$(7);: GOTO 12220
12240 RETURN
13000 REM NEW BUSINESS
13100 HOME
13110 PRINT "TO MANAGE YOUR LEMONADE STAND, YOU WILL "
13120 PRINT "NEED TO MAKE THESE DECISIONS EVERY DAY: ": PRINT
13130 PRINT "1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORNING)"
13140 PRINT "2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "
13150 PRINT "3. WHAT PRICE TO CHARGE FOR EACH GLASS ": PRINT
13160 PRINT "YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."
13170 PRINT "BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"
13180 PRINT "YOUR COST TO MAKE LEMONADE IS TWO CENTS "
13190 PRINT "A GLASS (THIS MAY CHANGE IN THE FUTURE).": PRINT
13200 GOSUB 18000
13202 HOME
13210 PRINT "YOUR EXPENSES ARE THE SUM OF THE COST OF"
13220 PRINT "THE LEMONADE AND THE COST OF THE SIGNS. ": PRINT
13230 PRINT "YOUR PROFITS ARE THE DIFFERENCE BETWEEN "
13240 PRINT "THE INCOME FROM SALES AND YOUR EXPENSES.": PRINT
13250 PRINT "THE NUMBER OF GLASSES YOU SELL EACH DAY "
13260 PRINT "DEPENDS ON THE PRICE YOU CHARGE, AND ON "
13270 PRINT "THE NUMBER OF ADVERTISING SIGNS YOU USE.": PRINT
13280 PRINT "KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "
13290 PRINT "CAN'T SPEND MORE MONEY THAN YOU HAVE! ": PRINT
13300 GOSUB 18000
13302 HOME : RETURN
14000 REM CONTINUE OLD GAME
14100 CALL -936: PRINT CHR$(7);:I = 0
14110 PRINT "HI AGAIN! WELCOME BACK TO LEMONSVILLE! ": PRINT
14120 PRINT "LET'S CONTINUE YOUR LAST GAME FROM WHERE"
14130 PRINT "YOU LEFT IT LAST TIME. DO YOU REMEMBER "
14140 PRINT "WHAT DAY NUMBER IT WAS? ";
14150 INPUT "";A$:A = VAL(A$): PRINT : IF A < >0 THEN 14200
14160 A$ = LEFT$(A$,1): IF A$ = "Y" THEN PRINT "GOOD! WHAT DAY WAS IT? ";:I = I +1: GOTO 14150
14170 IF A$ = "N" OR I >0 THEN 14300
14180 PRINT CHR$(7);"YES OR NO? ";:I = I +1: GOTO 14150
14200 IF A <1 OR A >99 OR A < > INT(A) THEN 14300
14210 D = A
14300 PRINT "OKAY - WE'LL START WITH DAY NO. ";D +1: PRINT
14400 FOR I = 1 TO N: PRINT : PRINT
14410 PRINT "PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)": PRINT
14420 PRINT "DID YOU HAVE? ";
14430 INPUT "";A$:A = VAL(A$): PRINT
14440 IF A <2 THEN PRINT "O.K. - WE'LL START YOU OUT WITH $2.00":A = 2: GOTO 14490
14450 IF A >40 THEN PRINT "JUST TO BE FAIR, LET'S MAKE THAT $10.00":A = 10
14490 A(I) = INT(A *100 +.5)/100: NEXT
14500 PRINT : PRINT CHR$(7): INPUT "...READY TO BEGIN? ";A$
14510 IF LEFT$(A$,1) = "N" THEN 13000
14520 RETURN
15000 REM WEATHER DISPLAY
15100 GR : HOME
15110 COLOR= SC: FOR I = 0 TO 25: HLIN 0,39 AT I: NEXT I
15120 COLOR= 12: FOR I = 26 TO 39: HLIN 0,39 AT I: NEXT I
15130 COLOR= 8: FOR I = 24 TO 32: HLIN 15,25 AT I: NEXT I
15150 COLOR= 13: FOR I = 17 TO 23 STEP 2: VLIN 22,23 AT I: NEXT I
15151 IF SC = 2 OR SC = 7 THEN 15160
15152 IF SC = 10 THEN COLOR= 15
15157 IF SC = 5 THEN COLOR= 0
15158 HLIN 6,10 AT 2: HLIN 4,14 AT 3: HLIN 7,12 AT 4: HLIN 22,30 AT 4: HLIN 20,36 AT 5: HLIN 23,33 AT 6::: GOSUB 17000: GOTO 15170
15160 IF SC = 7 THEN COLOR= 9
15162 HLIN 3,5 AT 1: HLIN 2,6 AT 2: FOR I = 3 TO 6: HLIN 1,7 AT I: NEXT : HLIN 2,6 AT 7: HLIN 3,5 AT 8
15170 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT
15175 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT
15180 IF SC = 2 THEN HTAB 18: PRINT " SUNNY ";
15182 IF SC = 7 THEN HTAB 15: PRINT " HOT AND DRY ";
15184 IF SC = 10 THEN HTAB 17: PRINT " CLOUDY ";
15186 IF SC = 5 THEN HTAB 14: PRINT " THUNDERSTORMS! ";: GOSUB 17000
15200 RESTORE
15210 READ A$: IF A$ < >"*" THEN 15210
15220 IF SC < >2 THEN 15300
15230 READ I,J: IF J = 0 THEN 15500
15240 FOR K = 1 TO J: POKE 768,I: POKE 769,10: CALL 770
15250 FOR L = K TO J: NEXT : NEXT : GOTO 15230
15300 READ I,J: IF J < >0 THEN 15300
15310 IF SC = 7 THEN 15400
15320 READ I,J: IF J < >0 THEN 15320
15330 IF SC = 10 THEN 15400
15340 READ I,J: IF J < >0 THEN 15340
15400 READ I,J: IF J = 0 THEN 15500
15410 IF I = 1 THEN FOR I = 1 TO J: NEXT : GOTO 15400
15420 POKE 768,I: POKE 769,J: CALL 770
15430 GOTO 15400
15440 IF SC = 5 THEN GOSUB 17000
15500 IF SC = 5 THEN GOSUB 17000
15510 I = FRE(0): FOR I = 1 TO 2000: NEXT : RETURN
16000 POKE 13824,76: POKE 13825,108: POKE 13826,54: POKE 13827,165: POKE 13828,48: POKE 13829,41: POKE 13830,15: POKE 13831,141: POKE 13832,160: POKE 13833,54:
16010 POKE 13834,165: POKE 13835,48: POKE 13836,41: POKE 13837,240: POKE 13838,141: POKE 13839,161: POKE 13840,54: POKE 13841,165: POKE 13842,36: POKE 13843,141:
16020 POKE 13844,162: POKE 13845,54: POKE 13846,165: POKE 13847,37: POKE 13848,141: POKE 13849,163: POKE 13850,54: POKE 13851,169: POKE 13852,0: POKE 13853,133:
16030 POKE 13854,36: POKE 13855,133: POKE 13856,37: POKE 13857,72: POKE 13858,32: POKE 13859,193: POKE 13860,251: POKE 13861,133: POKE 13862,40: POKE 13863,164:
16040 POKE 13864,36: POKE 13865,177: POKE 13866,40: POKE 13867,41: POKE 13868,15: POKE 13869,205: POKE 13870,164: POKE 13871,54: POKE 13872,208: POKE 13873,10:
16050 POKE 13874,177: POKE 13875,40: POKE 13876,41: POKE 13877,240: POKE 13878,24: POKE 13879,109: POKE 13880,160: POKE 13881,54: POKE 13882,145: POKE 13883,40:
16060 POKE 13884,177: POKE 13885,40: POKE 13886,41: POKE 13887,240: POKE 13888,205: POKE 13889,165: POKE 13890,54: POKE 13891,208: POKE 13892,10: POKE 13893,177:
16070 POKE 13894,40: POKE 13895,41: POKE 13896,15: POKE 13897,24: POKE 13898,109: POKE 13899,161: POKE 13900,54: POKE 13901,145: POKE 13902,40: POKE 13903,200:
16080 POKE 13904,192: POKE 13905,40: POKE 13906,144: POKE 13907,213: POKE 13908,160: POKE 13909,0: POKE 13910,104: POKE 13911,105: POKE 13912,0: POKE 13913,197:
16090 POKE 13914,34: POKE 13915,144: POKE 13916,196: POKE 13917,32: POKE 13918,193: POKE 13919,251: POKE 13920,133: POKE 13921,40: POKE 13922,173: POKE 13923,162:
16100 POKE 13924,48: POKE 13925,133: POKE 13926,36: POKE 13927,173: POKE 13928,163: POKE 13929,54: POKE 13930,133: POKE 13931,37: POKE 13932,165: POKE 13933,48:
16110 POKE 13934,41: POKE 13935,15: POKE 13936,141: POKE 13937,164: POKE 13938,54: POKE 13939,165: POKE 13940,48: POKE 13941,41: POKE 13942,240: POKE 13943,141:
16120 POKE 13944,165: POKE 13945,54: POKE 13946,96: POKE 13947,0:
16130 RETURN
17000 IF SC < >5 THEN RETURN
17001 COLOR= 10: VLIN 7,9 AT 29: HLIN 30,31 AT 9: VLIN 9,14 AT 32: HLIN 33,34 AT 14: VLIN 14,25 AT 35
17005 VLIN 5,8 AT 8: PLOT 9,8: VLIN 8,13 AT 10: PLOT 11,13: VLIN 13,17 AT 12
17010 FOR RPT = 1 TO 5
17020 CALL 13824
17030 COLOR= 7: CALL 13827
17040 CALL 13824
17050 COLOR= 9: CALL 13827
17060 NEXT RPT
17070 CALL 13824
17080 COLOR= 5: CALL 13827
17090 RETURN
18000 VTAB 24: PRINT " PRESS SPACE TO CONTINUE, ESC TO END...";
18010 GET IN$: IF IN$ < >" " AND ASC(IN$) < >27 THEN 18010
18020 IF ASC(IN$) = 27 THEN 31111
18030 RETURN
31111 FOR I = 1 TO 2000: NEXT : HOME : VTAB 10: PRINT "WOULD YOU LIKE TO PLAY AGAIN ";
31112 GET IN$: IF IN$ = "Y" THEN 150
31113 IF PEEK(994) + PEEK(1001) = 192 THEN CALL 976
31114 TEXT : HOME : TEXT : END

Text found in Volume_043_Original_System_Master_Disks.dsk/LITTLE BRICK OUT.bas:

10 GOTO 2000
20 Q = PDL(0): IF ABS(Q -OQ) <5 * SGN(Q) THEN RETURN
30 OQ = Q:Q = INT(39 -Q/6): IF Q <0 THEN Q = 0
40 IF Q >34 THEN Q = 34
50 COLOR= D: VLIN Q,Q +LL AT 0: COLOR= A: IF P 119 THEN GOSUB 230
120 I = X +V: IF I <0 THEN 1900
130 IF I <6 THEN OQ = 500
150 GOSUB 20: COLOR= E:K = J/3: IF I >39 THEN 240
160 IF SCRN( I,K) = E THEN 75
170 IF I THEN 270
180 V = 2:W = (K -P) *2 -LL:M = 1
215 POKE 6,150 - ABS(W) *4: POKE 7,3
218 Z = PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336): CALL 768
220 GOTO 75
230 W = -W:J = Y:Z = PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336) + PEEK( -16336): RETURN : REM SIDE BOUNCE
240 FOR I = 1 TO 6:M = PEEK( -16336): NEXT I:I = X:M = 0
250 V = -V
260 GOTO 75
270 IF M THEN V = ABS(V)
275 M = 1
280 VLIN INT(K/2) *2, INT(K/2) *2 +1 AT I:S = S +I/2 -9: VTAB 24: HTAB 8: PRINT S;: VTAB 23: HTAB 1
295 POKE 6,180 -I *3: POKE 7,3:Z = PEEK( -16336): CALL 768
300 POKE 6,140 +I * RND(1): POKE 7,2: CALL 768
310 POKE 6,50: POKE 7,3: CALL 768
330 REM ^BRICK STRUCK
340 IF S <720 THEN 250
350 VTAB 24: PRINT : PRINT : PRINT : GOSUB 1500: GOTO 760
355 COLOR= E: REM DRAW FIELD
360 FOR I = 0 TO 39: VLIN 0,39 AT I: NEXT I
420 FOR I = 20 TO 34 STEP 2
430 COLOR= B: VLIN 0,39 AT I: COLOR= C: FOR W = INT((I/4 - INT(I/4)) *4 +.05) * SGN(I/4) TO 39 STEP 4
440 VLIN W,W +1 AT I: NEXT W
450 NEXT I: RETURN
760 VTAB 23: PRINT "CONGRATULATIONS, ";: IF LEN(A$) THEN PRINT A$;", ";
770 PRINT "YOU WIN!";: CALL -868: PRINT
780 A$ = "CHAMP"
790 GOTO 1100
800 VTAB 24: PRINT : PRINT : PRINT : VTAB 22: PRINT "YOUR SCORE IS ";: IF S <10 THEN 910
810 IF S >50 THEN EXTP = 1
820 IF S >100 THEN NVC = 0
830 IF S <20 THEN 960
840 IF S <60 THEN 1010
850 IF S <120 THEN 1040
860 IF S <200 THEN 1050
870 IF S <300 THEN 1060
880 IF S <420 THEN 1070
890 IF S <650 THEN 1080
900 GOTO 1090
910 IF NVC THEN 930
920 PRINT "NOT TOO GOOD, BUT": PRINT "KEEP ON TRYING!":NVC = 1: GOTO 1100
930 IF NVC1 THEN 950
940 PRINT "STILL NOT GREAT,": PRINT "BUT KEEP WORKING AT IT.":NVC1 = 1: GOTO 1100
950 PRINT "ALL RIGHT.": PRINT "JUST KEEP TRYING.": GOTO 1100
960 IF NVC THEN 990
970 IF NOT EXTP THEN 910
980 PRINT "PRETTY BAD!": GOTO 1100
990 PRINT "MUCH BETTER THAN IT WAS.": PRINT "KEEP GOING!": GOTO 1100
1000 PRINT "O.K.": PRINT "TRY IT AGAIN!": GOTO 1100
1010 IF NVC THEN 1030
1020 PRINT "FAIR. ": GOTO 1100
1030 PRINT "GETTING REALLY GOOD.": GOTO 1100
1040 PRINT "NOT BAD. ": GOTO 1100
1050 PRINT "GOOD.": GOTO 1100
1060 PRINT "VERY GOOD.": GOTO 1100
1070 PRINT "VERY, VERY GOOD.": GOTO 1100
1080 PRINT "EXCELLENT.": GOTO 1100
1090 PRINT "NEARLY PERFECT.": GOTO 1100
1100 POKE 50,63: VTAB 24: PRINT "PUSH BUTTON FOR NEW GAME, ESC KEY TO EN";: POKE 2039,4: POKE 50,255: POKE -16368,0
1110 REM "POKE 2039,4" POKES AN INVERSE "D" INTO THE LAST SCREEN POSITION, AVOIDING SCROLLING.
1120 S = S +BANUS:BANUS = 0
1130 IF S < PEEK(789) + PEEK(790) *256 THEN 1160: REM NEW SCORE LESS THAN HIGH SCORE
1140 POKE 790,S/256: POKE 789,S - PEEK(790) *256: REM POKE NEW HIGH SCORE INTO PLACE
1150 VTAB 21: HTAB 15: PRINT "FORMER"
1160 Z = PEEK( -16384): IF PEEK( -16287) >127 THEN 1190
1170 GOSUB 20: IF Z < >155 THEN 1160
1175 REM
1180 IF Z = 155 THEN 11000
1190 OQ = 500: GOTO 2520
1300 REM PRINT POINT SCALE
1310 SCOLE = 6 -LL
1320 CALL -936: PRINT "POINTS PER BRICK -> 1 2 3 4 5 6 7 8"
1360 VTAB 24: CALL -958: PRINT "SCORE= 0";
1370 IF PEEK(787) = 37 THEN IF PEEK(788) = 38 THEN 1390: REM IF "VARIABLE" ALREADY INITIALIZED, SKIP
1380 POKE 787,37: POKE 788,38: POKE 789,0: POKE 790,0: REM SET FLAGS AND INIT NON-CLEARING VARIABLE
1390 HTAB 22: PRINT "HIGH SCORE= "; PEEK(789) + PEEK(790) *256;: HTAB 1: RETURN
1500 REM BONUS
1510 VTAB 22: POKE 50,63: IF L = 1 THEN PRINT " BONUS POINTS: "
1520 IF L >1 THEN PRINT "BONUS POINTS FOR ";L;" BALLS LEFT: "
1530 VTAB 22: FOR Q = 1 TO 1800: NEXT Q
1540 FOR Q = 0 TO L *50 STEP 5
1550 HTAB 32: PRINT Q;
1560 POKE 6,180: POKE 7,10: CALL 768
1570 POKE 6,200 * RND(1) +50: POKE 7,10: CALL 768
1580 POKE 6,160 -Q/10: POKE 7,12: CALL 768
1590 NEXT Q: POKE 50,255
1600 BANUS = Q -5: VTAB 21: HTAB 1: PRINT "TOTAL=";
1610 FOR Q = 1 TO 500: NEXT Q
1620 FOR Q = S TO S +BANUS STEP 5
1630 HTAB 8: PRINT Q;
1640 POKE 6,150 -Q/40: POKE 7,3: CALL 768
1650 POKE 6,140: POKE 7,2: CALL 768
1660 POKE 6,50: POKE 7,3: CALL 768
1680 FOR K = 1 TO 10 * RND(1) +20: NEXT K
1690 NEXT Q: PRINT : RETURN
1900 FOR H = 1 TO 80:OD = PEEK( -16336): NEXT H: GOTO 2910
2000 REM *** START OF PROGRAM ***
2010 GOSUB 7000: REM POKE SOUND ROUTINE
2020 TEXT : CALL -936: POKE -16298,0
2090 IF PEEK( -16287) >127 THEN IF PEEK( -16286) >127 THEN GOSUB 8500
2100 REM ^IF BOTH PADDLE SWITCHES READ "ON", THEN PADDLES ARE NOT PLUGGED IN.
2110 VTAB 24
2140 Q = I = LL = J = P = OQ = X = Y = K = W = E = V = D = F = N = M = Z = S: REM SET UP VARIABLE TABLE FOR MAXIMUM SPEED
2145 GOSUB 2340
2150 PRINT "***************************************";: VTAB 1: HTAB 1: PRINT "***************************************"
2160 COLOR= 10: VLIN 1,46 AT 0: VLIN 0,47 AT 39: REM "DRAW" ASTERICKS (*) ALONG EDGES
2170 VTAB 3: PRINT "* BRICK OUT IS A DYNAMIC BOARD GAME": PRINT "* IN WHICH YOU ATTEMPT TO KNOCK DOWN"
2180 PRINT "* A WALL OF BRICKS WITH A BALL": PRINT "* STRUCK BY YOUR PADDLE.": PRINT : PRINT
2190 PRINT "* YOU CONTROL THE PADDLE ON THE BOARD": PRINT "* BY TURNING THE APPLE PADDLE (0).": PRINT : PRINT
2200 PRINT "* YOU MAY "; CHR$(34);"PUT ENGLISH"; CHR$(34);" ON THE BALL": PRINT "* (DEFLECT THE BALL) BY HITTING IT": PRINT "* WITH THE PADDLE HELD OFF-CENTER."
2210 PRINT : PRINT
2220 POKE -16368,0
2240 PRINT "* BEFORE WE BEGIN, PLEASE TYPE": PRINT "* YOUR FIRST NAME AND THEN PRESS": PRINT "* THE KEY MARKED "; CHR$(34);"RETURN"; CHR$(34);
2250 POKE PEEK(40) + PEEK(41) *256 + PEEK(36),96: REM CURSOR
2260 P = PEEK( -16384): IF P = 155 THEN 11000
2270 IF PEEK( -16287) >127 THEN 2335
2280 IF P <156 AND P < >141 THEN 2260
2290 INPUT "";A$
2300 IF LEN(A$) = 0 THEN 2335
2310 FOR I = 1 TO LEN(A$): IF ASC( MID$ (A$,I,I)) < >64 THEN 2330
2320 NEXT I:I = I -1
2330 A$ = MID$ (A$,I, LEN(A$)): IF LEN(A$) THEN IF LEN(A$) >12 THEN A$ = LEFT$(A$,12)
2335 GOTO 2490
2340 CALL -936: VTAB 5: PRINT "========================================";: INVERSE : PRINT " L I T T L E B R I C K O U T ";: NORMAL : PRINT "========================================"
2350 VTAB 12: PRINT " COPYRIGHT 1979 APPLE COMPUTER INC"
2410 VTAB 20
2420 PRINT : PRINT "(PRESSING THE ESC KEY WILL END THE GAME)"
2450 VTAB 23: PRINT "PRESS THE SPACE BAR TO BEGIN....";: POKE PEEK(40) + PEEK(41) *256 + PEEK(36),96: POKE -16368,0
2460 P = PEEK( -16384): IF PEEK( -16287) >127 THEN 2480
2470 IF P < >160 AND P < >155 THEN 2460
2480 POKE -16368,0: IF P = 155 THEN 11000
2485 HOME : VTAB 24: HTAB 1: RETURN
2490 CALL -936
2500 GR :A = 2:B = 12:C = 9:D = 13:E = 2:F = 15: REM COLORS
2510 LL = 5:P = 15
2520 GOSUB 355
2580 OOLDP1 = PDL(1)
2860 GOSUB 1300
2870 S = 0:Y = 19:L = 6
2880 VTAB 23: POKE 50,63: PRINT " PUSH PADDLE BUTTON TO BEGIN THE GAME ";: POKE 50,255
2890 FOR K = 1 TO 20: NEXT K: REM ALLOW TIME FOR USER TO RELEASE BUTTON FROM LAST PUSH
2900 GOSUB 20
2904 P1 = PDL(1): IF ( ABS(OOLDP1 -P1) >3 OR PEEK( -16286) >127) AND NOT ERASE THEN GOSUB 4810
2905 OOLDP1 = P1: REM WRONG PADDLE
2906 IF ERASE THEN ERASE = ERASE -1
2907 IF ERASE = 1 THEN GOSUB 4800
2909 IF PEEK( -16287) <128 AND PEEK( -16384) < >155 THEN 2900
2910 VTAB 23: CALL -868
2920 COLOR= A: PLOT X,Y/3:Y = 120 * RND(1)
2930 X = 19
2940 V = -1:W = 5 * RND(1) -2:L = L -1: IF L <1 THEN 800
2947 IF LEN(A$) THEN IF L >1 THEN PRINT A$", ";
2950 IF L >1 THEN PRINT "THIS IS BALL ";6 -L;" OUT OF 5."
2970 IF PEEK( -16384) = 155 THEN 11000
2980 IF L < >1 THEN 3010
2990 POKE 50,63: PRINT "THIS IS THE LAST BALL";
3000 POKE 50,255: VTAB 23: PRINT
3010 FOR I = 1 TO 25 +125 * RND(1): GOSUB 20: NEXT I:M = 1:N = 0
3020 GOTO 80
4800 VTAB 23: HTAB 1: CALL -868: POKE 50,63: PRINT " PUSH PADDLE BUTTON TO BEGIN THE GAME ";: POKE 50,255:OQ = 500: RETURN
4810 VTAB 23: HTAB 1: CALL -868: PRINT " <<< PLEASE USE THE OTHER PADDLE. >>> ";
4820 POKE 6,40: POKE 7,30: CALL 768
4830 ERASE = 20: RETURN
7000 REM SOUND ROUTINE
7010 POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 773,4: POKE 774,198: POKE 775,7: POKE 776,240: POKE 777,8:
7020 POKE 778,202: POKE 779,208: POKE 780,246: POKE 781,166: POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,3: POKE 786,96
7030 RETURN
8500 REM PADDLES NOT PLUGGED IN
8510 VTAB 10: PRINT "BRICK OUT REQUIRES THE USE OF THE APPLE"
8520 PRINT "PADDLE SET. PLEASE PLUG IN THE PADDLE"
8530 PRINT "SET AND THEN PRESS THE SPACE BAR."
8540 PRINT : PRINT "IF YOU DO NOT HAVE PADDLES, YOU MAY"
8550 PRINT "EXIT THE GAME BY PRESSING THE ESC KEY."
8560 P = PEEK( -16384): IF P <155 THEN 8560
8570 POKE -16368,0: IF P < >155 THEN 8580: GOTO 11000
8580 IF PEEK( -16287) >127 AND PEEK( -16286) >127 THEN 8560
8590 IF P < >160 THEN 8560
8600 CALL -936: TEXT : RETURN : REM PADDLES ARE IN AND SPACE BAR HAS BEEN PRESSED.
11000 REM "ESC" KEY HAS BEEN PRESSED
11010 POKE -16368,0: CALL -936: IF PEEK(34) = 0 THEN VTAB 10
11015 PRINT "WOULD YOU LIKE TO CONTINUE"
11020 PRINT "PLAYING? ";:VTB = PEEK(37):TB = PEEK(36)
11030 PRINT : PRINT : PRINT "(TYPE YES OR NO AND PRESS RETURN)";
11040 VTAB VTB +2: CALL -868: VTAB VTB +1: POKE 36,TB: CALL -868: INPUT "";H$
11050 IF LEFT$(H$,1) < >"Y" THEN 11060
11055 H$ = "":P = 15:OQ = 500: GOTO 2490
11060 IF LEFT$(H$,1) < >"N" THEN 11040
11070 VTAB (VTB): CALL -868: VTAB (VTB +1): PRINT "WOULD SOMEONE ELSE LIKE TO PLAY? ";:VTB = PEEK(37):TB = PEEK(36)
11080 VTAB 23: CALL -868: VTAB VTB +1: POKE 36,TB: CALL -868: INPUT "";H$
11090 IF LEFT$(H$,1) = "Y" THEN 2020
11100 IF LEFT$(H$,1) < >"N" THEN 11080
11110 GOTO 31111
31111 POKE -16368,0: TEXT : CALL -936: TEXT : END
55000 IF INT(39 - PDL(0)/6) >34 THEN P = 34

Text found in Volume_043_Original_System_Master_Disks.dsk/MAKE TEXT.bas:

10 DIM A$(100):I = 0
20 D$ = CHR$(4): REM CTRL D
25 PRINT
30 PRINT "THIS PROGRAM LETS YOU WRITE TEXT FILES."
32 PRINT
34 PRINT "YOU GET TO TYPE ONE STRING AT A TIME."
36 PRINT
38 PRINT "A STRING MAY HAVE UP TO 239 CHARACTERS."
40 PRINT
50 I = I +1
52 PRINT "(PRESS THE RETURN KEY TO QUIT.)
54 PRINT "TYPE STRING #";I;": ";
56 INPUT A$(I)
58 IF A$(I) < >"" GOTO 40
60 PRINT
62 INPUT "WHAT FILE NAME? ";N$
70 PRINT D$;"OPEN ";N$
80 PRINT D$;"WRITE ";N$
90 PRINT I -1
100 FOR J = 1 TO I -1
110 : PRINT A$(J)
120 NEXT J
130 PRINT D$;"CLOSE ";N$

Text found in Volume_043_Original_System_Master_Disks.dsk/PENNY ARCADE.bas:

100 REM
110 REM PENNY ARCADE
120 REM
130 REM BY BILL BUDGE
140 REM
1020 POKE 175,32: POKE 176,19: POKE 105,32: POKE 106,19
1030 POKE 107,32: POKE 108,19: POKE 109,32: POKE 110,19
1040 POKE -16298,0: HOME
1050 POKE 216,0: REM OFF THE ON ERR
1100 TEXT : CALL -936: PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT " PENNY ARCADE": PRINT
1110 PRINT " BY": PRINT : PRINT " BILL BUDGE": PRINT : PRINT : PRINT
1120 PRINT " COPYRIGHT 1979 APPLE COMPUTER INC."
1130 PRINT : VTAB 23: PRINT " PRESS 'RETURN' TO CONTINUE...";: GET A$: IF ASC(A$) < >13 THEN 1130
1140 HOME
1150 VTAB 3: HTAB 11: PRINT "*** INSTRUCTIONS ***"
1160 PRINT
2000 PRINT : PRINT " THE OBJECT OF THE GAME IS TO GET THE": PRINT
2010 PRINT " BALL INTO THE OPPONENTS GOAL. DO THIS": PRINT : PRINT " FIVE TIMES AND YOU WIN! USE THE GAME": PRINT
2020 PRINT " PADDLES TO DEFEND YOUR GOAL.": PRINT : PRINT : PRINT " NEXT YOU WILL BE SHOWN A SERIES OF": PRINT
2030 PRINT " PLAYING FIELDS -- TO SELECT ONE, PRESS": PRINT : PRINT " ANY KEY WHEN THE FIELD THAT YOU WANT": PRINT
2040 PRINT " IS DISPLAYED."
2050 PRINT : VTAB 23: PRINT " PRESS 'RETURN' TO CONTINUE...";: GET A$: IF ASC(A$) < >13 THEN 2050
4090 CALL -936
5000 CALL 7062: CALL 7462: FOR I = 1 TO 2000: NEXT I: CALL 7062
5010 GOSUB 5900
5020 GAME = 0
5030 POKE 224,182: POKE 225,27
5040 CALL 6994
5050 VTAB 23: HTAB 13: PRINT "BUMPER POOL "
5060 GOSUB 5200
5070 POKE 224,98: POKE 225,28
5080 CALL 6994
5090 VTAB 23: HTAB 13: PRINT " HOCKEY "
5100 GOSUB 5200
5110 POKE 224,158: POKE 225,28
5120 CALL 6994
5130 VTAB 23: HTAB 13: PRINT " SCRAMBLE "
5140 GOSUB 5200
5150 POKE 224,250: POKE 225,28
5160 CALL 6994
5170 VTAB 23: HTAB 13: PRINT " TENNIS "
5180 GOSUB 5200
5190 GOTO 5020
5200 GAME = GAME +1
5210 FOR I = 1 TO 100
5220 X = PEEK( -16384)
5230 POKE -16368,0
5240 IF X < = 127 THEN 5270
5250 POP
5260 GOTO 5300
5270 NEXT I
5280 CALL 7062
5290 RETURN
5300 PRINT "WHAT DIFFICULTY LEVEL"
5310 INPUT "(1-EASIEST, 10-HARDEST)";DFF
5320 IF DFF >10 OR DFF <1 THEN 5300
5330 S1 = 0:S2 = 0
5340 POKE 228,127: POKE 229,0
5350 UPDOWN = 120
5360 DFF = 10 +DFF *5
5370 POKE 6762,DFF: POKE 6800,DFF
5380 POKE 6723,UPDOWN: POKE 6727,UPDOWN
5390 POKE 6732,256 -UPDOWN: POKE 6736,256 -UPDOWN
5400 IF GAME = 2 THEN 5440
5410 LE = 7:RE = 247
5420 POKE 6771,189: POKE 6830,189
5430 GOTO 5460
5440 LE = 90:RE = 166
5450 POKE 6771,203: POKE 6830,203
5460 POKE 6589,LE: POKE 6652,RE
5470 POKE 6680,LE -3: POKE 6684,LE +3: POKE 6688,RE -3: POKE 6692,RE +3
5480 INPUT "SHOULD THERE BE GRAVITY?";A$
5485 HOME
5490 POKE 65,27: POKE 67,27
5500 PRINT
5510 FOR I = 27 TO 11 STEP -8
5520 POKE 66,I: POKE 68,I
5530 CALL 6526
5540 NEXT I
5545 VTAB 23
5550 PRINT "PLAYER #1";: HTAB 27: PRINT "PLAYER #2"
5560 POKE 224,128: POKE 225,38: POKE 226,128: POKE 227,38
5570 VTAB 24: HTAB 4: PRINT S1;: HTAB 31: PRINT S2;
5580 IF S1 = 5 OR S2 = 5 THEN 5840
5590 IF LEFT$(A$,1) = "Y" THEN 5700
5600 FOR I = 1 TO 200
5610 CALL 6526
5620 NEXT I
5630 CALL 6748
5640 GOSUB 5750
5650 POKE 229,0
5660 IF PEEK(224) <127 THEN S2 = S2 +1
5670 IF PEEK(224) >127 THEN S1 = S1 +1
5680 CALL 6882
5690 GOTO 5560
5700 FOR I = 1 TO 200
5710 CALL 6526
5720 NEXT I
5730 CALL 6786
5740 GOTO 5640
5750 FOR I = 1 TO 2
5760 FOR J = 1 TO 10
5770 Z = PEEK( -16336) - PEEK( -16336)
5780 NEXT J
5790 FOR J = 1 TO 5
5800 Z = PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336)
5810 NEXT J
5820 NEXT I
5830 RETURN
5840 PRINT : INPUT "MORE PONG?";A$
5845 HOME
5850 PRINT : PRINT : CALL 7062
5860 IF LEFT$(A$,1) = "Y" THEN 5020
5870 POKE -16303,0: POKE -16298,0
5880 CALL -936: PRINT "BYE!"
5890 END
5900 REM
6020 POKE -16297,0: POKE -16301,0: POKE -16304,0
6030 RETURN

Text found in Volume_043_Original_System_Master_Disks.dsk/PHONE LIST.bas:

100 REM ***********************
101 REM * *
102 REM * W A R N I N G *
103 REM * - - - - - - - *
104 REM * *
105 REM * DO NOT MODIFY *
106 REM * ANY LINE IN THIS *
107 REM * PROGRAM WITH A *
108 REM * LINE NUMBER LESS *
109 REM * THAN 400!! *
110 REM * *
111 REM * PROGRAM WILL *
112 REM * SELF-DESTRUCT! *
113 REM * *
114 REM ***********************
115 REM
200 DATA 1001
201 DATA APPLE COMPUTER INC..........408 996 1010
202 DATA \.......................................
203 DATA \.......................................
204 DATA \.......................................
205 DATA \.......................................
206 DATA \.......................................
207 DATA \.......................................
208 DATA \.......................................
209 DATA \.......................................
210 DATA \.......................................
211 DATA \.......................................
212 DATA \.......................................
213 DATA \.......................................
214 DATA \.......................................
215 DATA \.......................................
216 DATA \.......................................
217 DATA \.......................................
218 DATA \.......................................
219 DATA \.......................................
220 DATA \.......................................
221 DATA \.......................................
222 DATA \.......................................
223 DATA \.......................................
224 DATA \.......................................
225 DATA \.......................................
226 DATA \.......................................
227 DATA \.......................................
228 DATA \.......................................
229 DATA \.......................................
230 DATA \.......................................
231 DATA \.......................................
232 DATA \.......................................
233 DATA \.......................................
234 DATA \.......................................
235 DATA \.......................................
236 DATA \.......................................
237 DATA \.......................................
238 DATA \.......................................
239 DATA \.......................................
240 DATA \.......................................
241 DATA \.......................................
242 DATA \.......................................
243 DATA \.......................................
244 DATA \.......................................
245 DATA \.......................................
246 DATA \.......................................
247 DATA \.......................................
248 DATA \.......................................
249 DATA \.......................................
250 DATA \.......................................
251 DATA \.......................................
252 DATA \.......................................
253 DATA \.......................................
254 DATA \.......................................
255 DATA \.......................................
256 DATA \.......................................
257 DATA \.......................................
258 DATA \.......................................
259 DATA \.......................................
260 DATA \.......................................
261 DATA \.......................................
262 DATA \.......................................
263 DATA \.......................................
264 DATA \.......................................
265 DATA \.......................................
266 DATA \.......................................
267 DATA \.......................................
268 DATA \.......................................
269 DATA \.......................................
270 DATA \.......................................
271 DATA \.......................................
272 DATA \.......................................
273 DATA \.......................................
274 DATA \.......................................
275 DATA \.......................................
276 DATA \.......................................
277 DATA \.......................................
278 DATA \.......................................
279 DATA \.......................................
280 DATA \.......................................
281 DATA \.......................................
282 DATA \.......................................
283 DATA \.......................................
284 DATA \.......................................
285 DATA \.......................................
286 DATA \.......................................
287 DATA \.......................................
288 DATA \.......................................
289 DATA \.......................................
290 DATA \.......................................
291 DATA \.......................................
292 DATA \.......................................
293 DATA \.......................................
294 DATA \.......................................
295 DATA \.......................................
296 DATA \.......................................
297 DATA \.......................................
298 DATA \.......................................
299 DATA \.......................................
300 DATA \.......................................
301 DATA \.......................................
302 DATA \.......................................
303 DATA \.......................................
304 DATA \.......................................
305 DATA \.......................................
306 DATA \.......................................
307 DATA \.......................................
308 DATA \.......................................
309 DATA \.......................................
310 DATA \.......................................
311 DATA \.......................................
312 DATA \.......................................
313 DATA \.......................................
314 DATA \.......................................
315 DATA \.......................................
316 DATA \.......................................
317 DATA \.......................................
318 DATA \.......................................
319 DATA \.......................................
320 DATA \.......................................
321 DATA \.......................................
322 DATA \.......................................
323 DATA \.......................................
324 DATA \.......................................
325 DATA \.......................................
326 DATA \.......................................
327 DATA \.......................................
328 DATA \.......................................
329 DATA \.......................................
330 DATA \.......................................
331 DATA \.......................................
332 DATA \.......................................
333 DATA \.......................................
334 DATA \.......................................
335 DATA \.......................................
336 DATA \.......................................
337 DATA \.......................................
338 DATA \.......................................
339 DATA \.......................................
340 DATA \.......................................
341 DATA \.......................................
342 DATA \.......................................
343 DATA \.......................................
344 DATA \.......................................
345 DATA \.......................................
346 DATA \.......................................
347 DATA \.......................................
348 DATA \.......................................
349 DATA \.......................................
350 DATA \.......................................
400 REM SET PRINTER SLOT
410 LET SL = 1
450 REM DISK SYSTEM??
460 IF PEEK(994) + PEEK(1001) = 192 THEN DISK = 1
470 IF DISK THEN PRINT CHR$(4)"NOMON C,I,O": HOME
500 REM GET ADDRESS OF FIRST DATA STATEMENT
510 LET START = ( PEEK(103) + PEEK(104) *256 +458)
550 REM SET FAST/SLOW SEARCH
560 LET OP = 0
570 GOTO 25000
700 REM ACTIVATE PRINTER
710 PR# SL: RETURN
750 REM DE-ACTIVATE PRINTER
760 PR# 0: RETURN
800 REM END ROUTINE
810 IF MF = 0 THEN 890
820 IF DISK THEN PRINT CHR$(4)"SAVE PHONE LIST": TEXT : HOME : VTAB 22: CALL 976: END
830 HOME : VTAB 11: PRINT "INSERT A NEW TAPE INTO THE RECORDER, SET";: PRINT "ON RECORD, AND PRESS 'RETURN' ";: INPUT "";S$
840 FOR I = 1 TO 1500: NEXT : SAVE : FOR I = 1 TO 2000: NEXT : SAVE
850 HOME : VTAB 12: PRINT "THE PROGRAM AND DATA HAVE BEEN SAVED!!": VTAB 22: END
890 TEXT : HOME : VTAB 22: END
1000 REM SEARCH
1005 GOSUB 3000: IF OP = 1 THEN 1010
1006 HOME : VTAB 9: HTAB 5: PRINT "WOULD YOU LIKE TO SEARCH BY": PRINT : HTAB 10: PRINT "1 WORD (FAST)": HTAB 7: PRINT "OR 2 CHARACTER (SLOW)"
1007 VTAB 14: CALL -868: HTAB 20: INPUT "WHICH: ";SK$:SK = VAL(SK$): IF SK < >1 AND SK < >2 OR LEN(SK$) >1 THEN PRINT "": GOTO 1007
1010 HOME : VTAB 11: HTAB 5: PRINT "PLEASE ENTER THE SEARCH KEY:": VTAB 13: HTAB 5: INPUT "";S$: IF S$ = "" THEN 25000
1012 IF PR THEN GOSUB 700: PRINT " ": PRINT " "
1015 HOME : VTAB 1: PRINT " NAME PHONE NUMBER": PRINT "----------------------------------------"
1017 IF PR THEN GOSUB 750
1018 IF S = 2 THEN 2510
1020 VTAB 12: CALL -868: HTAB 12: INVERSE : PRINT "<< SEARCHING >>": NORMAL :VT = 2
1025 RESTORE : READ Z
1030 LET FO = 0: FOR I = 1 TO NR
1040 READ NA$: IF LEFT$(NA$,1) = CHR$(92) THEN 1040
1045 IF SK = 0 OR SK = 1 THEN IF LEFT$(NA$, LEN(S$)) < >S$ THEN 1075
1050 FOR II = 1 TO LEN(NA$)
1060 IF MID$ (NA$,II, LEN(S$)) = S$ THEN FO = FO +1: GOSUB 1100: GOTO 1075
1070 NEXT II
1075 NEXT I: IF FO THEN 1200
1080 VTAB 12: CALL -868: HTAB 12: INVERSE : PRINT "<< NOT FOUND >>": NORMAL : IF PR THEN GOSUB 700: FOR S = 1 TO 4: PRINT " ": NEXT : GOSUB 750
1090 PRINT CHR$(7): FOR I = 1 TO 1500: NEXT I: GOTO 25000
1099 STOP
1100 REM GOT ONE!
1102 LET VT = VT +1: IF VT > = 21 AND PR < >1 THEN GOSUB 1300
1104 IF FO = 1 THEN VTAB 12: CALL -868
1105 IF PR THEN GOSUB 700
1110 VTAB VT: HTAB 1: PRINT NA$;
1120 IF PR THEN GOSUB 750
1140 IF I < = NR THEN RETURN
1200 IF PR THEN GOSUB 700: PRINT " ": PRINT " ": PRINT " ": PRINT " ": GOSUB 750
1210 VTAB 22: CALL -868: PRINT "THAT'S ALL OF THEM! - PRESS 'RETURN' ";: INPUT "";S$: GOTO 25000
1299 STOP
1300 REM GOT A FULL PAGE
1310 VTAB 22: CALL -958: PRINT "ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";: GET T$
1320 IF T$ = CHR$(27) THEN POP : GOTO 25000
1330 IF T$ = CHR$(13) THEN VTAB 3: HTAB 1: CALL -958:VT = 3: RETURN
1340 PRINT CHR$(7): GOTO 1300
2499 STOP
2500 REM LIST EVERYTHING
2504 GOSUB 3000
2505 GOTO 1012
2510 RESTORE : READ Z
2530 LET VT = 2:FO = 0: FOR I = 1 TO NR
2540 READ NA$: IF LEFT$(NA$,1) = CHR$(92) AND I < = NR THEN 2540
2542 GOSUB 1100
2545 IF VT > = 22 THEN VT = 2: VTAB 3: CALL -958
2550 NEXT I
2560 GOTO 1200
3000 REM IS DATA FILE EMPTY?
3010 HOME : RESTORE : IF NR = 0 THEN VTAB 12: HTAB 9: INVERSE : PRINT "<< NO NAMES ON FILE >>": NORMAL : FOR I = 1 TO 2000: NEXT I: POP : GOTO 25000
3020 RETURN
4000 REM ENTER LISTINGS
4010 HOME : IF NR > = 150 THEN VTAB 12: HTAB 12: PRINT "DATA TABLE FULL!": FOR I = 1 TO 2000: NEXT : GOTO 25000
4020 POKE 32,3: VTAB 10: CALL -958: PRINT "ENTER NEW NAME AND PRESS 'RETURN'.": PRINT "(USE NO COMMAS, COLONS OR QUOTES.": PRINT "TWENTY-FIVE CHARACTERS, MAXIMUM.)"
4030 VTAB 14: INPUT "-> ";A$: GOSUB 6100:NN$ = B$: IF NN$ = "" AND S = 5 THEN POKE 32,0: POP : GOTO 25000
4035 IF NN$ = "" THEN POKE 32,0: GOTO 25000
4040 IF LEN(NN$) >25 THEN PRINT "": GOTO 4020
4050 VTAB 10: CALL -958: PRINT "ENTER NEW NUMBER THEN PRESS 'RETURN'.": PRINT "(USE THE FORMAT: XXX XXX XXXX)"
4060 VTAB 13: INPUT "-> ";A$: GOSUB 6100:NP$ = B$: IF NP$ = "" AND S = 5 THEN POKE 32,0: POP : GOTO 25000
4065 IF NP$ = "" THEN POKE 32,0: GOTO 25000
4070 IF LEN(NP$) < >12 THEN PRINT "": GOTO 4050
4100 REM IS ENTRY CORRECT?
4110 TEXT : HOME : VTAB 8: PRINT "HERE IS THE ";: INVERSE : PRINT "NAME";: NORMAL : PRINT " ENTRY:": VTAB 10: HTAB 14: PRINT NN$
4120 VTAB 12: PRINT "AND THE ";: INVERSE : PRINT "PHONE NUMBER";: NORMAL : PRINT ":": VTAB 14: HTAB 14: PRINT NP$
4140 VTAB 18: HTAB 8: CALL -868: INPUT "ARE THEY CORRECT (Y/N) ";S$: IF LEFT$(S$,1) = "Y" THEN 4180
4150 IF LEFT$(S$,1) < >"Y" AND S = 5 THEN POP : GOTO 6000
4160 IF LEFT$(S$,1) < >"N" THEN PRINT "": GOTO 4100
4170 GOTO 4000
4175 IF S = 5 THEN 4200
4180 IF S = 5 THEN 4200
4190 LET UD = 1
4200 REM PAD TO 40 CHARACTERS
4210 FOR I = LEN(NN$) TO (39 - LEN(NP$)):NN$ = NN$ +".": NEXT
4220 LET NN$ = NN$ +NP$: IF S = 5 THEN RETURN
4250 REM UPDATE DATA NUMBER
4260 RESTORE : READ T:T = T +UD:CU = (START -11)
4270 LET T$ = STR$(T): FOR I = 1 TO LEN(T$)
4280 POKE (CU +I), ASC( MID$ (T$,I,1)): NEXT
4290 IF S = 4 THEN RETURN
4300 REM FIND EMPTY DATA LINE
4310 READ T$: IF LEFT$(T$,1) < > CHR$(92) THEN 4310
4320 LET LN = PEEK(123) + PEEK(124) *256
4350 REM CALCULATE OFFSET
4360 LET CU = (START +((LN -201) *46))
4400 REM POKE DATA LINE
4410 FOR I = CU TO (CU +39)
4420 POKE I, ASC( MID$ (NN$,I +1 -CU,1)): NEXT
4450 REM SET UPDATE FLAG
4460 LET MF = MF +1: IF S = 4 OR S = 5 THEN RETURN
4470 GOTO 25000
4499 STOP
5000 REM DELETE DATA CONTENTS
5005 HOME : GOSUB 3000
5010 HOME : VTAB 10: PRINT "PLEASE ENTER THE NAME OF THE PARTY YOU": PRINT "WISH DELETED FROM THE DIRECTORY AND": PRINT "PRESS 'RETURN'."
5020 VTAB 14: INPUT "-> ";K$: IF K$ = "" AND S = 5 THEN POP : GOTO 25000
5030 IF K$ = "" THEN 25000
5050 REM FIND AN EXACT MATCH
5060 RESTORE : READ Z: FOR I = 1 TO NR
5070 READ NA$: IF LEFT$(NA$, LEN(K$)) = K$ THEN 5100
5075 IF LEFT$(NA$,1) = CHR$(92) AND I < = NR THEN 5070
5080 NEXT : HOME : GOTO 25000
5100 REM FOUND A MATCH
5110 LET LN = PEEK(123) + PEEK(124) *256
5120 HOME : VTAB 11: PRINT NA$: IF S = 5 THEN RETURN
5130 VTAB 13: CALL -868: INPUT "DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$: IF LEFT$(S$,1) = "Y" THEN 5200
5140 IF LEFT$(S$,1) < >"N" THEN PRINT "": GOTO 5130
5150 GOTO 5080
5200 REM OK THEN, KILL IT!
5210 LET UD = -1: GOSUB 4250
5220 LET CU = (START +((LN -201) *46))
5230 POKE CU, ASC( CHR$(92))
5240 GOSUB 4450: GOTO 25000
6000 REM EDIT A DATA LINE
6010 HOME : GOSUB 3000
6012 HOME : VTAB 10: PRINT "PLEASE ENTER THE NAME OF THE PARTY WHOSE";: PRINT "LISTING YOU WISH TO EDIT AND PRESS": PRINT "'RETURN'.": GOSUB 5020
6020 VTAB 13: CALL -868: INPUT "DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$: IF S$ = "" THEN 25000
6030 IF LEFT$(S$,1) = "Y" THEN NN$ = NA$: GOTO 6050
6035 IF LEFT$(S$,1) = "N" THEN GOSUB 5070
6040 PRINT "": GOTO 6020
6050 REM GO EDIT THE LINE
6060 HOME : VTAB 8: PRINT NN$: GOSUB 4020: GOSUB 4360
6070 GOTO 25000
6100 REM REMOVE CONTROL CHARS.
6105 B$ = ""
6107 IF NOT LEN(A$) THEN RETURN
6110 FOR I = 1 TO LEN(A$)
6120 IF ASC( MID$ (A$,I,1)) >26 THEN B$ = B$ + MID$ (A$,I,1)
6130 NEXT I
6140 RETURN
24000 REM PRINTER ON/OFF
24010 LET PR = NOT PR: GOTO 25050
24020 STOP
25000 REM MAIN MENU
25005 RESTORE : READ NR:NR = NR -1000
25010 TEXT : HOME : VTAB 1: PRINT "----------------------------------------";: INVERSE
25020 PRINT " APPLE COMPUTER, INC. PHONE LIST ";: NORMAL : PRINT "----------------------------------------"
25030 PRINT "PROGRAM CURRENTLY CONTAINS "NR" LISTING";: IF NR < >1 THEN PRINT "S";
25040 PRINT : PRINT "ROOM FOR "(150 -NR)" ADDITIONAL LISTINGS"
25050 VTAB 8: PRINT "THE PRINTER IS";: IF NOT PR THEN PRINT " OFF";
25055 IF NOT PR THEN VTAB 9: PRINT " ": GOTO 25070
25060 PRINT " ";: FLASH : PRINT " ON ": NORMAL
25070 VTAB 10: PRINT "YOU MAY CHOOSE FROM THE FOLLOWING:": POKE 32,5: PRINT : PRINT
25080 PRINT "1 SEARCH FOR A LISTING": PRINT "2 LIST THE ENTIRE FILE"
25090 PRINT "3 ENTER NEW LISTINGS": PRINT "4 DELETE A LISTING"
25100 PRINT "5 EDIT A LISTING": PRINT "6 PRINTER ON/OFF"
25110 PRINT "7 EXIT THIS PROGRAM": POKE 32,0: PRINT
25120 POKE 32,0: PRINT
25130 VTAB 22: HTAB 20: CALL -868: INPUT "WHICH: ";S$:S = VAL(S$)
25140 IF S <1 OR S >7 THEN PRINT CHR$(7): GOTO 25130
25150 ON S GOTO 1000,2500,4000,5000,6000,24000,800
25160 STOP
65533 REM
65534 REM APPLE COMPUTER, INC.
65535 REM COPYRIGHT 4/1/1979

Text found in Volume_043_Original_System_Master_Disks.dsk/RANDOM.bas:

5 PRINT "NOMONI,O,C": HOME
10 TEXT :D$ = CHR$(4)
20 LET OP$ = D$ +"OPEN "
30 LET CL$ = D$ +"CLOSE "
40 LET RD$ = D$ +"READ "
50 LET WR$ = D$ +"WRITE "
60 LET FL$ = "APPLE PROMS"
70 PRINT OP$;FL$;",L40"
75 GOTO 1000
80 GOSUB 390
90 ON Q GOTO 100,180,480
100 GOSUB 330
110 FOR R = R1 TO R2
120 PRINT RD$;FL$;",R";R
130 INPUT N$,BL,BW,ST
140 PRINT " ";R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST
150 NEXT R
160 PRINT D$
170 GOTO 310
180 GOSUB 330
190 LET T = 7: FOR R = R1 TO R2:T = T +1
200 PRINT RD$;FL$;",R";R: INPUT N$,BL,BW,ST: PRINT D$
210 VTAB (T): PRINT " ";R; TAB( 8);N$;: HTAB (7): INPUT Q$
220 IF LEN(Q$) >15 THEN 200
230 IF LEN(Q$) < >0 THEN N$ = Q$
250 VTAB (T): HTAB (24): PRINT BL;: HTAB (23): INPUT Q$: IF LEN(Q$) < >0 THEN BL = VAL(Q$)
270 VTAB (T): HTAB (32): PRINT ST;: HTAB (31): INPUT Q$: IF LEN(Q$) >0 THEN ST = VAL(Q$)
280 VTAB (T): PRINT " ";R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST;" "
290 PRINT WR$;FL$;",R";R: PRINT N$;",";BL;",";ST
300 PRINT D$: NEXT R
310 VTAB (23): PRINT "PRESS THE RETURN KEY TO CONTINUE.";: GET Q$
320 GOTO 80
330 PRINT : INPUT "PART NUMBER 1-9 (0=ALL) ";Q$
340 PRINT Q$:Q = VAL(Q$): IF (Q <1 OR Q >9) AND Q$ < >"0" THEN PRINT CHR$(7);: GOTO 330
350 LET R1 = Q:R2 = Q: IF Q = 0 THEN R1 = 1:R2 = 9
360 HOME : VTAB (5)
370 PRINT "PART# NAME SIZE IN STOCK ----- ---- ---- -------- "
380 RETURN
390 HOME : PRINT TAB( 12);FL$: VTAB (10)
400 PRINT "COMMAND","NUMBER"
410 PRINT "-------","------"
420 PRINT "LIST"," 1"
430 PRINT "CHANGE"," 2"
440 PRINT "EXIT"," 3"
450 PRINT : INPUT "CHOOSE NUMBER (1 - 3) ";Q$:Q = VAL(Q$)
460 IF Q >0 AND Q <4 THEN RETURN
470 VTAB (15): PRINT CHR$(7);: GOTO 450
480 PRINT CL$;FL$
490 HOME : END
500 REM DEMONSTRATION OF RANDOM ACCESS
1000 DIM A$(9),B(9),C(9),D(9)
1010 HOME : PRINT : PRINT "THIS DEMONSTRATION WILL NOT EXECUTE ON": PRINT "A WRITE-PROTECTED DISKETTE SUCH AS"
1020 PRINT "YOUR DOS SYSTEM MASTER (VERSION 3.2). FOR YOUR CONVENIENCE, PROVISIONS HAVE BEEN MADE TO COPY THIS PROGRAM AND IT'S"
1030 PRINT "DATA TO ANOTHER DISKETTE.": PRINT
1040 INPUT "DO YOU WISH TO DO THIS NOW? (Y OR N) ";Q$: IF Q$ = "N" THEN 480
1050 IF Q$ = "Y" THEN 1070
1060 PRINT : VTAB (9): GOTO 1040
1070 PRINT : PRINT "NOW READING DATA..."
1080 FOR R = 1 TO 9: PRINT RD$;FL$;",R";R
1090 INPUT A$(R),B(R),C(R),D(R)
1100 NEXT R
1110 PRINT CL$;FL$
1120 PRINT CHR$(7): HOME : PRINT : PRINT "INSERT AN INITIALIZED DISKETTE, THEN": PRINT "PRESS THE RETURN KEY TO BEGIN TRANSFER.": INPUT " ";Q$
1130 PRINT OP$;FL$;",L40"
1140 PRINT WR$;FL$;",R0"
1150 PRINT "75": PRINT "DEL 1000,1250": PRINT "SAVE RANDOM": PRINT "HOME": PRINT "RUN"
1160 FOR R = 1 TO 9
1170 PRINT WR$;FL$;",R";R
1180 PRINT A$(R);",";B(R);",";C(R);",";D(R)
1190 NEXT R
1200 PRINT CL$;FL$
1210 HOME : PRINT : PRINT "WHEN THE PROGRAM AND DATA HAVE BEEN": PRINT "FULLY TRANSFERRED, THE PROGRAM WILL": PRINT "BEGIN RUNNING."
1220 PRINT D$;"EXEC ";FL$
1230 REM LINE 75 AND LINES 1000-1250 ARE NOT SAVED
1240 REM RECORD ZERO CONTAINS THE 'SAVE' PROGRAM EXECUTIVE
1250 END

Text found in Volume_043_Original_System_Master_Disks.dsk/RENUMBER INSTRUCTIONS.bas:

10 REM RENUMBER
20 REM PAGES, 300 * PAGE #
24 PRINT
30 TEXT : HOME : SPEED= 255
35 TT = 15:PT = 34
70 PRINT "&"; TAB( 05);"APPLESOFT RENUMBER INSTRUCTIONS"; TAB( 40);"&";
80 PRINT
90 PRINT "&"; TAB( 4);"COPYRIGHT 1978 APPLE COMPUTER INC"; TAB( 40);"&";
100 PRINT : PRINT : PRINT
110 NORMAL
120 PRINT TAB( TT)"CONTENTS" TAB( PT)"PAGE 1 "
122 PRINT "PAGE TITLE PAGE TITLE "
124 PRINT
125 PRINT " 1 CONTENTS 9 SYNTAX "
126 PRINT " 2 WARNING 10 ERROR MSGS"
130 PRINT " 3 RENUMBER 11 ERROR MSGS"
132 PRINT " 4 RENUMBER 12 ERROR MSGS"
134 PRINT " 5 RENUMBER 13 OTHER MSGS"
136 PRINT " 6 MERGE 14 USAGE NOTES"
138 PRINT " 7 MERGE 15 USAGE NOTES"
140 PRINT " 8 SYNTAX 16 USAGE NOTES"
141 GOTO 200
142 PRINT "9 INPUT SYNTAX"
144 PRINT "10 ERROR MESSAGES"
146 PRINT "11 ERROR MESSAGES"
148 PRINT "12 ERROR MESSAGES"
150 PRINT "13 OTHER MESSAGES"
152 PRINT "14 NOTES"
154 PRINT "15 NOTES"
156 PRINT "16 NOTES"
200 VTAB 23
210 PRINT "PRESS RETURN TO RUN RENUMBER"
215 PRINT "HIT ANY KEY FOR INSTRUCTIONS";
220 GET A$
230 IF ASC(A$) = 3 THEN END
240 IF ASC(A$) = 13 THEN 10000
250 HOME
300 PRINT TAB( PT)"PAGE 2 "
310 PRINT "W W A RRRR N N III N N GGG "
320 PRINT "W W A A R R N N I N N G G"
330 PRINT "W W A A R R NN N I NN N G "
340 PRINT "W W W AAAAA RRRR N N N I N N N G "
350 PRINT "W W W A A R R N NN I N NN G GG"
360 PRINT "WW WW A A R R N N I N N G G"
370 PRINT "W W A A R R N N III N N GGG "
380 VTAB 13
390 PRINT " DO NOT PRESS RESET"
400 PRINT : PRINT " DURING RENUMBER OR MERGE"
410 PRINT : PRINT " IT WILL DESTROY YOUR PROGRAM!"
420 PRINT : PRINT " ALSO DO NOT USE 'MAXFILES'"
430 PRINT : PRINT " IT WILL DESTROY RENUMBER!"
590 GOSUB 9000
900 PRINT TAB( TT)"RENUMBER" TAB( PT)"PAGE 3 "
910 PRINT
920 PRINT " THIS PROGRAM CAN RENUMBER ALL OR"
930 PRINT "PART OF A BASIC PROGRAM. BY TYPING"
940 PRINT : PRINT "& "
950 PRINT : PRINT "IT WILL RENUMBER THE ENTIRE PROGRAM"
960 PRINT "STARTING AT TEN AND GOING BY TENS."
970 PRINT : PRINT : PRINT "OLD NEW"
980 PRINT : PRINT "1 INPUT X 10 INPUT X"
990 PRINT "2 IF X<1 THEN 1 20 IF X<1 THEN 10"
1000 PRINT "3 ON X GOSUB 39,87 30 ON X GOSUB 50,70"
1010 PRINT "27 END 40 END"
1020 PRINT "39 PRINT A 50 PRINT A"
1030 PRINT "45 RETURN 60 RETURN"
1040 PRINT "87 PRINT A * A 70 PRINT A * A"
1050 PRINT "99 RETURN 80 RETURN"
1060 GOSUB 9000
1200 PRINT TAB( TT)"RENUMBER" TAB( PT)"PAGE 4 "
1210 PRINT
1220 PRINT "& FIRST 50, INC 5"
1230 PRINT : PRINT " FIRST SETS THE FIRST NEW LINE NUMBER"
1240 PRINT " INC SETS THE STEP TO THE NEXT LINE"
1250 PRINT " NUMBER"
1260 PRINT : PRINT " YOU CAN SET THE NEW FIRST LINE AND"
1270 PRINT "LINE INCREMENT TO ALMOST ANY VALUE."
1280 PRINT : PRINT "OLD NEW"
1290 PRINT : PRINT "1 INPUT X 50 INPUT X"
1300 PRINT "2 IF X<1 THEN 1 55 IF X<1 THEN 50"
1310 PRINT "3 ON X GOSUB 39,87 60 ON X GOSUB 65,75"
1320 PRINT "39 PRINT A 65 PRINT A"
1330 PRINT "45 RETURN 70 RETURN"
1340 PRINT "87 PRINT A * A 75 PRINT A * A"
1350 PRINT "99 RETURN 80 RETURN"
1360 GOSUB 9000
1500 PRINT TAB( TT)"RENUMBER" TAB( PT)"PAGE 5 "
1510 PRINT
1520 PRINT " TO RENUMBER PART OF A PROGRAM,"
1530 PRINT "YOU MUST SPECIFY WHICH PART BY"
1540 PRINT : PRINT " START SETS THE FIRST LINE AND"
1550 PRINT " END SETS THE LAST LINE TO BE"
1560 PRINT " RENUMBERED"
1570 PRINT : PRINT "& FIRST 30, START 87, END 99"
1580 PRINT : PRINT "OLD NEW"
1590 PRINT : PRINT "1 INPUT X 1 INPUT X"
1600 PRINT "2 IF X<1 THEN 1 2 IF X<1 THEN 1"
1610 PRINT "3 ON X GOSUB 39,87 3 ON X GOSUB 39,30"
1620 PRINT "27 END 27 END"
1630 PRINT "39 PRINT A 30 PRINT A * A"
1640 PRINT "45 RETURN 35 RETURN"
1650 PRINT "87 PRINT A * A 39 PRINT A"
1660 PRINT "99 RETURN 45 RETURN"
1670 GOSUB 9000
1800 PRINT TAB( TT)"MERGE" TAB( PT)"PAGE 6 "
1810 PRINT
1820 PRINT " THIS PROGRAM CAN ALSO MERGE"
1830 PRINT "THE BASIC PROGRAM IN THE HOLD FILE TO"
1840 PRINT "TO THE BASIC PROGRAM IN MEMORY."
1850 PRINT
1860 PRINT : PRINT " FIRST, LOAD THE FIRST PROGRAM AND"
1870 PRINT "TYPE"
1880 PRINT : PRINT "& HOLD"
1890 PRINT : PRINT " NEXT, LOAD THE SECOND PROGRAM."
1900 PRINT "YOU MAY RUN OR RENUMBER THIS PROGRAM"
1910 PRINT "AS NEEDED."
1920 PRINT : PRINT " THEN, TO MERGE THE TWO TYPE"
1930 PRINT : PRINT "& MERGE"
1940 GOSUB 9000
2100 PRINT TAB( TT)"MERGE" TAB( PT)"PAGE 7 "
2110 PRINT
2120 PRINT " MERGE WILL COMBINE THE HOLD FILE"
2130 PRINT "WITH THE PROGRAM CURRENTLY IN MEMORY."
2140 PRINT : PRINT " * LINE NUMBERS ARE ARRANGED IN"
2150 PRINT " ASCENDING ORDER"
2160 PRINT : PRINT " * DUPLICATE LINE NUMBERS WILL BOTH"
2170 PRINT " APPEAR, HOLD VERSION SECOND"
2180 PRINT : PRINT " * MERGING WITH NO PROGRAM IN"
2190 PRINT " MEMORY RESTORES THE HOLD FILE"
2200 PRINT : PRINT " CONVERT"
2210 PRINT : PRINT "& CONVERT"
2220 PRINT : PRINT " WILL CONVERT AN RAM APPLESOFT"
2230 PRINT "PROGRAM TO RUN WITH A ROM CARD AND"
2240 PRINT "VICE VERSA."
2250 GOSUB 9000
2400 PRINT TAB( TT)"INPUT SYNTAX" TAB( PT)"PAGE 8 "
2410 PRINT
2420 PRINT " THE FIRST CHARACTER OF ANY INPUT"
2430 PRINT "MUST BE '&'."
2440 PRINT : PRINT " RENUMBER / MERGE ONLY RECOGNIZES"
2450 PRINT "THE FOLLOWING SINGLE CHARACTER COMMANDS"
2460 PRINT : PRINT "PARAMETER LETTERS"
2470 PRINT " F - FIRST NEW LINE NUMBER"
2480 PRINT " I - LINE NUMBER INCREMENT"
2490 PRINT " S - START OF RANGE"
2500 PRINT " E - END OF RANGE"
2510 PRINT : PRINT "COMMAND LETTERS"
2520 PRINT " M - MERGE"
2530 PRINT " H - HOLD"
2540 PRINT " C - CONVERT"
2550 PRINT : PRINT " EXTRA LETTERS AND SPACES AFTER"
2560 PRINT "A COMMAND ARE IGNORED"
2570 GOSUB 9000
2700 PRINT TAB( TT)"INPUT SYNTAX" TAB( PT)"PAGE 9 "
2710 PRINT
2720 PRINT " THE FIRST LETTER AFTER '&' MUST BE"
2730 PRINT "C,E,F,H,I,M,OR S"
2740 PRINT : PRINT " C,H,AND M EXECUTE IMMEDIATELY."
2750 PRINT "THE REST OF THE LINE IS IGNORED."
2760 PRINT : PRINT " E,F,I,AND S SET UP RENUMBER"
2770 PRINT "PARAMETERS."
2780 PRINT : PRINT " * PARAMETERS ARE DECIMAL NUMBERS IN"
2790 PRINT " THE RANGE OF 0 TO 63999"
2800 PRINT " * IF NO NUMBER FOLLOWS E,F,I,OR S"
2810 PRINT " THEN THE PARAMETER IS SET TO 0"
2820 PRINT " * MULTIPLE PARAMETERS ARE SEPARATED"
2830 PRINT " BY COMMAS, ','"
2840 PRINT " * MULTIPLE PARAMETERS CAN BE IN ANY"
2850 PRINT " ORDER"
2860 PRINT " * A COMMA MUST BE FOLLOWED BY A"
2870 PRINT " PARAMETER LETTER"
2880 GOSUB 9000
3000 PRINT TAB( TT)"ERROR MESSAGES" TAB( PT)"PAGE 10"
3010 PRINT
3020 PRINT " MOST ERROR MESSAGES ARE SELF-"
3030 PRINT "EXPLAINATORY. ERRORS WILL STOP"
3040 PRINT "EXECUTION BEFORE ANY CHANGES ARE MADE"
3050 PRINT "TO THE BASIC PROGRAM."
3060 PRINT : PRINT "ERR NO PROGRAM IN MEMORY"
3070 PRINT " THIS OCCURS IF YOU TRY TO RE-"
3080 PRINT " NUMBER WITH NO PROGRAM IN MEMORY."
3090 PRINT : PRINT " * & MERGE RETURNS THE "
3100 PRINT " PROGRAM ON HOLD TO MEMORY"
3110 PRINT : PRINT "ERR SYNTAX"
3120 PRINT " THE FIRST LETTER OF YOUR COMMAND"
3130 PRINT " OR PARAMETER WAS INVALID."
3140 GOSUB 9000
3300 PRINT TAB( TT)"ERROR MESSAGES" TAB( PT)"PAGE 11"
3310 PRINT
3320 PRINT "ERR > 63999"
3330 PRINT " ONE OF THE PARAMETERS WAS LARGER"
3340 PRINT " THAN 63999."
3350 PRINT : PRINT "ERR LINE INCREMENT = 0"
3360 PRINT " THIS IS DISALLOWED."
3370 PRINT : PRINT "ERR LINE INCREMENT TOO LARGE"
3380 PRINT " THE INCREMENT WILL CAUSE A LINE"
3390 PRINT " TO BE NUMBERED GREATER THAN 63999.";
3400 PRINT : PRINT "ERR NO LINES IN RANGE"
3410 PRINT " THIS INDICATES THAT NOTHING WAS"
3420 PRINT " CHANGED BECAUSE THE SPECIFIED"
3430 PRINT " RANGE OF LINES WAS EMPTY."
3440 PRINT : PRINT "ERR OUT OF MEMORY"
3445 PRINT " OCCURS WHEN AN OPERATION REQUIRES"
3450 PRINT " MORE MEMORY THAN IS AVAILABLE."
3470 GOSUB 9000
3600 PRINT TAB( TT)"ERROR MESSAGES" TAB( PT)"PAGE 12"
3610 PRINT
3620 PRINT "ERR DUPLICATE LINE NUMBERS"
3630 PRINT " ONE OF THE UNCHANGED LINE NUMBERS"
3640 PRINT " WOULD EQUAL ONE OF THE NEW LINE"
3650 PRINT " NUMBERS IF RENUMBER CONTINUED."
3660 PRINT : PRINT " TO FIX USE"
3670 PRINT " * SMALLER INCREMENT OR"
3680 PRINT " * DIFFERENT FIRST LINE NUMBER"
3690 PRINT : PRINT "ERR LINE TOO LONG"
3695 PRINT " RENUMBERING WOULD CAUSE A LINE TO"
3700 PRINT " BE LONGER THAN 239 CHARACTERS."
3710 PRINT : PRINT " TO FIX USE FEWER STATEMENTS PER"
3720 PRINT " LINE."
3740 PRINT : PRINT "ERR HOLD FILE IN USE"
3750 PRINT " ONLY ONE PROGRAM MAY BE IN THE"
3760 PRINT " HOLD FILE AT A TIME."
3770 GOSUB 9000
3900 PRINT TAB( TT)"OTHER MESSAGES" TAB( PT)"PAGE 13"
3910 PRINT
3920 PRINT "LIMITED MEMORY, MAY DESTROY PROGRAM"
3930 PRINT "CONTINUE (Y/N)?"
3940 PRINT : PRINT " THIS OCCURS WITH SMALL SYSTEMS"
3950 PRINT " OR LARGE PROGRAMS. THE RENUMBER"
3960 PRINT " MAY OR MAY NOT SUCCEED."
3970 PRINT : PRINT " * PROGRAM DESTROYED IF IT FAILS"
3980 PRINT : PRINT " * ANY REPLY BUT 'Y' CANCELS"
3990 PRINT " RENUMBER AND RETURNS TO BASIC"
4000 PRINT : PRINT "PROGRAM ON HOLD, USE '&M' TO RECOVER"
4010 PRINT : PRINT " THIS IS DISPLAYED WHENEVER A"
4020 PRINT " PROGRAM IS PUT INTO THE HOLD FILE."
4030 PRINT " TYPING '& MERGE WILL RECOVER"
4040 PRINT " THE PROGRAM."
4050 GOSUB 9000
4200 PRINT TAB( TT)"NOTES" TAB( PT)"PAGE 14"
4210 PRINT
4220 PRINT " RENUMBER FIXES LINE NUMBER"
4230 PRINT "REFERENCES IN THESE STATEMENTS;"
4240 A = 10:B = 20
4260 PRINT : PRINT TAB( A)"GOTO" TAB( B)"ON...GOTO"
4270 PRINT : PRINT TAB( A)"GOSUB" TAB( B)"ON...GOSUB"
4275 PRINT : PRINT TAB( A)"DEL" TAB( B)"LIST"
4280 PRINT : PRINT TAB( A)"RUN" TAB( B)"THEN"
4290 PRINT : PRINT " 'THEN' AS IN '7 IF X=0 THEN 250'"
4295 PRINT
4300 PRINT
4310 PRINT : PRINT " RENUMBER WILL NOT RENUMBER ANY"
4320 PRINT "REFERENCE THAT IS A PART OF A REMARK."
4490 GOSUB 9000
4500 PRINT TAB( TT)"NOTES" TAB( PT)"PAGE 15"
4510 PRINT
4520 PRINT " RENUMBER COMMANDS MAY BE PUT IN"
4530 PRINT "BASIC PROGRAMS, BUT ON EXECUTION "
4540 PRINT "RENUMBER WILL RETURN TO BASIC COMMAND"
4550 PRINT "MODE, ']'."
4560 PRINT : PRINT : PRINT " RENUMBER IS ABOUT 2K BYTES LONG"
4570 PRINT : PRINT : PRINT " RENUMBER MAY TAKE UP TO ONE"
4580 PRINT "MINUTE TO RENUMBER OR MERGE A 16K BASIC"
4590 PRINT "PROGRAM. DO NOT HIT 'RESET'!!!"
4600 PRINT : PRINT : PRINT " DISK USERS, DO NOT USE 'MAXFILES'"
4610 PRINT "AFTER RENUMBER IS IN, DOS WILL WRITE"
4620 PRINT "OVER RENUMBER."
4790 GOSUB 9000
4800 PRINT TAB( TT)"NOTES" TAB( PT)"PAGE 16"
4810 PRINT
4820 PRINT " TO SEE IF RENUMBER IS OK, TYPE"
4830 PRINT : PRINT "& INC 0"
4840 PRINT : PRINT " IF YOU GET 'INCREMENT = 0' ERROR,"
4850 PRINT "RENUMBER IS PROBABLY INTACT."
4860 PRINT : PRINT " THE INTENDED USE FOR MERGE IS TO"
4870 PRINT "BE ABLE TO INSERT SUBROUTINES INTO A"
4880 PRINT "PROGRAM FROM A SUBROUTINE LIBRARY."
4890 PRINT : PRINT " THE 'HOLD' FILE IS A SEPARATE PART"
4900 PRINT "OF MEMORY. NEITHER BASIC NOR RENUMBER"
4910 PRINT "CAN USE THIS MEMORY FOR THEIR OPERATION.";
4920 PRINT "THEREFORE FOR MAXIMUM USEABLE MEMORY,"
4930 PRINT "USE THE HOLD FILE ONLY WHILE MERGING"
4940 PRINT "PROGRAMS."
7100 GOSUB 9000
7200 GOTO 10
8999 END
9000 VTAB 24
9010 PRINT "PRESS SPACE FOR MORE, ESC TO RESTART";
9020 GET A$
9025 IF ASC(A$) = 3 THEN END
9030 IF ASC(A$) = 27 THEN 9060
9040 HOME
9050 RETURN
9060 GOTO 10
9999 END
10000 VTAB 20: PRINT "": VTAB 20: PRINT "RUN RENUMBER": END

Text found in Volume_043_Original_System_Master_Disks.dsk/RENUMBER.bas:

10 REM RENUMBER
30 TEXT : HOME : INVERSE : SPEED= 255
35 TT = 15:PT = 34
40 S$ = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
50 SS$ = "& &"
60 PRINT S$;SS$;
70 PRINT "&"; TAB( 11);"APPLESOFT RENUMBER"; TAB( 40);"&";
80 PRINT SS$;
90 PRINT "&"; TAB( 4);"COPYRIGHT 1978 APPLE COMPUTER INC"; TAB( 40);"&";
100 PRINT SS$;S$
110 NORMAL
120 PRINT "RENUMBER (DEFAULT VALUES)"
130 PRINT : PRINT "& [FIRST 10] [,INC 10] [,S 0] [,E 63999]"
140 PRINT "MERGE"
150 PRINT : PRINT "&H PUT PROGRAM ON HOLD"
160 PRINT "&M MERGE TO PROGRAM ON HOLD"
170 PRINT : PRINT "CONVERT"
180 PRINT : PRINT "&C CONVERT RAM / ROM PROGRAM TO"
190 PRINT " CURRENT TYPE OF BASIC"
200 VTAB 24
210 PRINT "PRESS 'RETURN' TO CONTINUE...";
220 GET A$
230 IF ASC(A$) = 3 THEN END
240 IF ASC(A$) < >13 THEN 220
10000 HOME : PRINT "RENUMBER INSTALLED ABOVE HIMEM": PRINT : PRINT "** RE RUN RENUMBER AFTER A DOS 'FP' **"
10010 CALL PEEK(121) + PEEK(122) *256 +31

Text found in Volume_043_Original_System_Master_Disks.dsk/RETRIEVE TEXT.bas:

10 D$ = CHR$(4): REM CTRL D
12 PRINT "THIS PROGRAM RETRIEVES TEXT FILES"
14 PRINT "CREATED BY THE 'CREATE TEXT' PROGRAM."
16 PRINT "MON C,I,O IS IN EFFECT."
18 PRINT
20 INPUT "NAME OF TEXT FILE? ";Z$
22 PRINT D$;"MON C,I,O"
24 PRINT
30 PRINT D$;"OPEN ";Z$
40 PRINT D$;"READ ";Z$
50 INPUT I
55 DIM A$(I)
60 FOR J = 1 TO I
70 : INPUT A$(J)
80 NEXT J
90 PRINT D$;"CLOSE ";Z$
100 PRINT D$;"NOMON C,I,O"

Text found in Volume_043_Original_System_Master_Disks.dsk/UPDATE 3.2.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 0C 20 05 09 20 23 09 A9 00 20 E3 08 20 89 09 ). .. #. ). c. ..
$000010 90 1B A9 08 20 05 09 AD 65 0E C9 02 D0 07 AD 66 ..). ..- e.I.P.-f
$000020 0E C9 0B F0 21 A9 07 20 E3 08 4C B5 08 AD 06 1E .I.p!). c.L5.-..
$000030 4D 0D 1E 49 6E D0 0F AD BE 34 49 02 D0 08 8D 66 M..InP.- >4I.P..f
$000040 2B 8D EB 13 F0 08 A9 08 20 E3 08 4C B5 08 A9 0A +.k.p.). c.L5.).
$000050 20 05 09 A9 01 20 E3 08 20 6A FD 20 48 09 B0 EE ..). c. j} H.0n
$000060 A0 1D B9 2E 0E 99 75 2B 88 10 F7 A9 02 20 05 09 .9...u+ ..w). ..
$000070 A9 02 20 E3 08 20 0D 09 A9 03 20 E3 08 20 39 09 ). c. .. ). c. 9.
$000080 B0 CC 20 85 09 90 4A A9 0A 20 05 09 AD 6E 0E 0A 0L ...J) . ..-n..
$000090 B0 03 0A 90 04 A9 09 D0 02 A9 0A 20 E3 08 A9 05 0....).P .). c.).
$0000A0 20 E3 08 20 39 09 B0 08 A9 0A 20 05 09 4C 6B 08 c. 9.0. ). ..Lk.
$0000B0 A9 0A 20 05 09 A9 06 20 E3 08 20 39 09 B0 FB AD ). ..). c. 9.0{-
$0000C0 62 0E 4A 4A 4A 4A 09 C0 85 F1 A9 00 85 F0 6C F0 b.JJJJ.@ .q)..plp
$0000D0 00 A9 06 20 05 09 A9 04 20 E3 08 20 39 09 B0 D5 .). ..). c. 9.0U
$0000E0 4C 4E 08 0A AA BD E2 09 85 F0 BD E3 09 85 F1 A0 LN..*=b. .p=c..q
$0000F0 00 B1 F0 48 09 80 20 ED FD 68 30 08 E6 F0 D0 EF .1pH.. m }h0.fpPo
$000100 E6 F1 D0 EB 60 48 20 58 FC 68 85 25 60 A9 A0 A2 fqPk`H X |h.%`) "
$000110 00 20 ED FD E0 1E F0 06 BD 2E 0E E8 D0 F3 A9 8D . m}`.p. =..hPs).
$000120 4C ED FD A9 F0 85 36 A9 1B 85 38 A9 FD 85 37 85 Lm})p.6) ..8)}.7.
$000130 39 8D F4 03 A9 87 85 33 60 20 0C FD C9 8D F0 06 9.t.)..3 ` .}I.p.
$000140 C9 9B F0 03 D0 F3 18 60 8A F0 2C 86 F0 A0 00 B9 I.p.Ps.` .p,.p .9
$000150 00 02 C8 C9 A0 F0 F8 C9 C1 90 1C A2 00 9D 2E 0E ..HI pxI A.."....
$000160 E8 E0 1E F0 1E B9 00 02 C9 8D F0 0D C9 AC F0 09 h`.p.9.. I.p.I,p.
$000170 C4 F0 F0 05 C8 D0 E6 38 60 A9 A0 9D 2E 0E E8 E0 Dpp.HPf8 `) ...h`
$000180 1E D0 F8 18 60 A9 02 D0 02 A9 01 20 B3 09 A9 0E .Px.`).P .). 3.).
$000190 A0 61 20 D9 03 B0 1B AC 66 0E C8 C0 0D D0 05 A0 a Y.0., f.H@.P.
$0001A0 00 EE 65 0E 8C 66 0E EE 6A 0E AD 6A 0E C9 37 D0 .ne..f.n j.-j.I7P
$0001B0 DD 18 60 48 C9 01 D0 1A 20 E3 03 85 F1 84 F0 A0 ].`HI.P. c..q.p
$0001C0 01 B1 F0 8D 4D 0E 8D 5B 0E C8 B1 F0 8D 4E 0E 8D .1p.M..[ .H1p.N..
$0001D0 5C 0E A0 11 B9 4C 0E 99 61 0E 88 10 F7 68 8D 6D \. .9L.. a...wh.m
$0001E0 0E 60 F8 09 87 0A B9 0A 60 0B EC 0B 96 0C E8 0C .`x...9. `.l...h.
$0001F0 25 0D 42 0D 8B 0D F0 0D 0D 20 20 20 20 44 4F 53 %.B...p. . DOS
$000200 20 33 2E 32 20 4D 41 53 54 45 52 20 2D 20 55 50 3.2 MAS TER - UP
$000210 44 41 54 45 20 55 54 49 4C 49 54 59 0D 0D 20 20 DATE UTI LITY..
$000220 43 4F 50 59 52 49 47 48 54 20 31 39 37 39 20 42 COPYRIGH T 1979 B
$000230 59 20 41 50 50 4C 45 20 43 4F 4D 50 55 54 45 52 Y APPLE COMPUTER
$000240 20 49 4E 43 0D 20 20 20 20 20 20 20 20 20 20 41 INC. A
$000250 4C 4C 20 52 49 47 48 54 53 20 52 45 53 45 52 56 LL RIGHT S RESERV
$000260 45 44 2E 0D 0D 0D 0D 20 20 20 20 20 20 20 20 28 ED..... (
$000270 4E 4F 57 20 4C 4F 41 44 49 4E 47 20 44 4F 53 20 NOW LOAD ING DOS
$000280 49 4D 41 47 45 29 8D 0D 50 4C 45 41 53 45 20 49 IMAGE).. PLEASE I
$000290 4E 50 55 54 20 54 48 45 20 22 47 52 45 45 54 49 NPUT THE "GREETI
$0002A0 4E 47 22 20 50 52 4F 47 52 41 4D 27 53 0D 46 49 NG" PROG RAM'S.FI
$0002B0 4C 45 20 4E 41 4D 45 3A A0 0D 0D 52 45 4D 45 4D LE NAME: ..REMEM
$0002C0 42 45 52 20 54 48 41 54 20 22 55 50 44 41 54 45 BER THAT "UPDATE
$0002D0 22 20 44 4F 45 53 20 4E 4F 54 20 43 52 45 41 54 " DOES N OT CREAT
$0002E0 45 0D 54 48 45 20 22 47 52 45 45 54 49 4E 47 22 E.THE "G REETING"
$0002F0 20 50 52 4F 47 52 41 4D 2C 20 4F 52 20 50 4C 41 PROGRAM , OR PLA
$000300 43 45 20 49 54 20 49 4E 0D 54 48 45 20 44 49 53 CE IT IN .THE DIS
$000310 4B 20 44 49 52 45 43 54 4F 52 59 0D 0D 20 20 54 K DIRECT ORY.. T
$000320 48 49 53 20 49 53 20 54 48 45 20 46 49 4C 45 20 HIS IS T HE FILE
$000330 4E 41 4D 45 20 54 48 41 54 20 57 49 4C 4C 20 42 NAME THA T WILL B
$000340 45 0D 50 4C 41 43 45 44 20 57 49 54 48 49 4E 20 E.PLACED WITHIN
$000350 54 48 45 20 49 4D 41 47 45 3A 0D 0D 20 20 20 A0 THE IMAG E:..
$000360 0D 20 20 50 4C 41 43 45 20 54 48 45 20 44 49 53 . PLACE THE DIS
$000370 4B 45 54 54 45 20 54 4F 20 42 45 20 22 55 50 44 KETTE TO BE "UPD
$000380 41 54 45 44 22 20 49 4E 0D 54 48 45 20 44 49 53 ATED" IN .THE DIS
$000390 4B 20 44 52 49 56 45 2E 0D 0D 20 20 50 52 45 53 K DRIVE. .. PRES
$0003A0 53 20 5B 52 45 54 55 52 4E 5D 20 57 48 45 4E 20 S [RETUR N] WHEN
$0003B0 52 45 41 44 59 0D 0D 4E 4F 54 45 3A 20 49 46 20 READY..N OTE: IF
$0003C0 59 4F 55 20 57 41 4E 54 20 41 20 44 49 46 46 45 YOU WANT A DIFFE
$0003D0 52 45 4E 54 20 46 49 4C 45 20 4E 41 4D 45 2C 50 RENT FIL E NAME,P
$0003E0 52 45 53 53 20 5B 45 53 43 5D 2E 8D 0D 20 20 54 RESS [ES C]... T
$0003F0 48 45 20 44 49 53 4B 45 54 54 45 20 48 41 53 20 HE DISKE TTE HAS
$000400 42 45 45 4E 20 55 50 44 41 54 45 44 2C 20 59 4F BEEN UPD ATED, YO
$000410 55 20 4D 41 59 52 45 4D 4F 56 45 20 49 54 20 41 U MAYREM OVE IT A
$000420 54 20 54 48 49 53 20 54 49 4D 45 2E 0D 0D 20 20 T THIS T IME...
$000430 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 22 IF YOU W ISH TO "
$000440 55 50 44 41 54 45 22 20 41 4E 4F 54 48 45 52 20 UPDATE" ANOTHER
$000450 44 49 53 4B 2D 0D 45 54 54 45 2C 20 50 52 45 53 DISK-.ET TE, PRES
$000460 53 20 5B 52 45 54 55 52 4E 5D 2E 0D 0D 20 20 4F S [RETUR N]... O
$000470 54 48 45 52 57 49 53 45 20 50 52 45 53 53 20 5B THERWISE PRESS [
$000480 45 53 43 5D 20 54 4F 20 45 58 49 54 20 22 55 50 ESC] TO EXIT "UP
$000490 44 41 54 45 22 8D 0D 0D 20 20 49 46 20 59 4F 55 DATE"... IF YOU
$0004A0 20 57 49 53 48 20 54 4F 20 52 45 54 52 59 20 50 WISH TO RETRY P
$0004B0 52 45 53 53 20 5B 52 45 54 55 52 4E 5D 0D 0D 20 RESS [RE TURN]..
$0004C0 20 4F 54 48 45 52 57 49 53 45 20 50 52 45 53 53 OTHERWI SE PRESS
$0004D0 20 5B 45 53 43 5D 20 54 4F 20 45 58 49 54 20 22 [ESC] T O EXIT "
$0004E0 55 50 44 41 54 45 22 8D 0D 20 20 49 4E 53 45 52 UPDATE". . INSER
$0004F0 54 20 41 20 53 59 53 54 45 4D 20 44 49 53 4B 45 T A SYST EM DISKE
$000500 54 54 45 20 41 4E 44 20 50 52 45 53 53 0D 5B 52 TTE AND PRESS.[R
$000510 45 54 55 52 4E 5D 20 54 4F 20 52 45 42 4F 4F 54 ETURN] T O REBOOT
$000520 20 44 4F 53 A0 0D 07 07 07 20 20 55 4E 41 42 4C DOS ... . UNABL
$000530 45 20 54 4F 20 52 45 41 44 20 49 4D 41 47 45 2E E TO REA D IMAGE.
$000540 0D 8D 0D 07 07 07 20 20 49 4D 41 47 45 20 4F 46 ...... IMAGE OF
$000550 20 44 4F 53 20 33 2E 32 20 28 4D 41 53 54 45 52 DOS 3.2 (MASTER
$000560 29 20 49 53 20 4E 4F 54 0D 0D 41 56 41 49 4C 41 ) IS NOT ..AVAILA
$000570 42 4C 45 2E 20 20 43 48 45 43 4B 20 49 4E 53 54 BLE. CH ECK INST
$000580 52 55 43 54 49 4F 4E 53 2E 0D 8D 0D 07 07 07 20 RUCTIONS .......
$000590 20 55 4E 41 42 4C 45 20 54 4F 20 57 52 49 54 45 UNABLE TO WRITE
$0005A0 2E 20 20 44 49 53 4B 45 54 54 45 20 4D 55 53 54 . DISKE TTE MUST
$0005B0 20 42 45 0D 49 4E 49 54 49 41 4C 49 5A 45 44 20 BE.INIT IALIZED
$0005C0 50 52 4F 50 45 52 4C 59 2E 20 20 43 48 45 43 4B PROPERLY . CHECK
$0005D0 20 44 49 53 4B 45 54 54 45 0D 46 4F 52 20 50 52 DISKETT E.FOR PR
$0005E0 4F 50 45 52 20 49 4E 53 45 52 54 49 4F 4E 2E 8D OPER INS ERTION..
$0005F0 0D 07 07 07 20 20 44 49 53 4B 45 54 54 45 20 49 .... DI SKETTE I
$000600 53 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 45 S WRITE PROTECTE
$000610 44 2E 20 20 52 45 4D 4F 56 45 0D 57 52 49 54 45 D. REMO VE.WRITE
$000620 20 50 52 4F 54 45 43 54 20 54 41 42 2E 8D 00 00 PROTECT TAB....
$000630 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000640 00 00 00 00 00 00 00 00 00 00 00 00 01 60 01 00 ........ .....`..
$000650 00 00 5D 0E 00 12 00 00 00 00 00 60 01 00 01 EF ..]..... ...`...o
$000660 D8 01 60 01 00 00 00 5D 0E 00 12 00 00 00 00 00 X.`....] ........
$000670 60 01 57 52 49 54 54 45 4E 20 42 59 20 4A 41 4D `.WRITTE N BY JAM
$000680 45 53 20 52 2E 20 48 55 53 54 4F 4E 20 44 45 43 ES R. HU STON DEC
$000690 45 4D 42 45 52 20 31 35 2C 20 31 39 37 38 20 28 EMBER 15 , 1978 (
$0006A0 54 48 49 53 20 4D 45 53 53 41 47 45 20 49 53 20 THIS MES SAGE IS
$0006B0 46 49 4C 4C 45 52 2C 20 57 48 59 20 52 45 41 44 FILLER, WHY READ
$0006C0 20 49 54 3F 29 00 00 00 00 00 00 00 00 00 00 00 IT?)... ........
$0006D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0006E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0006F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **