Notes

Disk info for RIC_Programs_58.dsk:

File Name: riag_011_RIC_Programs_58/RIC_Programs_58.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 78336
Used Space (bytes): 65024
Physical Size (KB): 140
Free Space (KB): 76
Used Space (KB): 63
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 306
Used Sectors: 254
Tracks On Disk: 35
Sectors On Disk: 16



Text found in RIC_Programs_58.dsk/APPLEBETIZE.bas:

1 TEXT : HOME
2 REM ORIGIONAL PROGRAM BY CHARLES E. THOMAS
3 REM 7022 BLACKHAWK
4 REM PITTSBURG, PA 15218
5 REM FROM
6 REM KILOBAUD MICROCOMPUTING
7 REM PAGE 94
8 REM APRIL, 1979
9 REM UPDATED BY DAVID M. MURDOCH
10 HTAB 15: FLASH : PRINT "APPLEBETIZE": NORMAL : PRINT : PRINT : PRINT
15 PRINT "DO YOU WANT INSTRUCTIONS";: GET Q$: IF Q$ = "Y" THEN GOSUB 5000
16 HOME
20 PRINT : PRINT : PRINT
30 PRINT "HOW MANY NAMES ARE THERE TO BE APPLEBETIZED ";
35 INPUT N
40 DIM A$(N)
50 FOR I = 1 TO N
55 PRINT : PRINT
60 PRINT "ENTER NAME NO. ";I;
70 INPUT A$(I)
80 NEXT I
81 HOME
82 FOR T = 1 TO 250: NEXT T: PRINT ""
83 HTAB 13: VTAB 10: PRINT "DON'T TOUCH ME!"
84 HTAB 14: VTAB 15: PRINT "I'M THINKING!"
85 FOR T = 1 TO 200: NEXT T
90 FOR I = 1 TO N
100 FOR J = 1 TO N -I
110 LET A$ = A$(J)
120 LET B$ = A$(J +1)
130 IF A$ 9 THEN T = 2
215 IF I >99 THEN T = 1
220 PRINT TAB( T);I;" ";A$(I)
230 NEXT I
235 PRINT : PRINT : PRINT
240 PRINT "DO YOU WANT ANOTHER LISTING OF THE SAME NAMES";
245 GET Q$
250 IF Q$ = "Y" THEN GOTO 81
254 HOME
255 VTAB 14
256 PRINT "DO YOU WANT TO APPLEBETIZE ANOTHER LIST ";: PRINT "OF NAMES";: GET Q$
257 IF Q$ = "Y" THEN RUN 16
260 HOME
270 HTAB 16: VTAB 14: PRINT "GOOD BYE"
280 FOR T = 1 TO 500: NEXT T
290 FOR T = 1 TO 10: PRINT "": NEXT T
999 PRINT CHR$(4);"RUN HELLO"
5000 REM INSTRUCTIONS
5001 HOME
5002 PRINT : PRINT : PRINT : PRINT " THIS PROGRAM WILL ALPHABETIZE A LIST";
5003 PRINT "OF UP TO 999 NAMES, KEEPING THE FIRST ";
5004 PRINT "LETTER OF EACH IN A VERTICAL LINE."
5005 PRINT : PRINT
5010 PRINT " THIS PROGRAM WAS ADAPTED BY CHARLES ";
5011 PRINT "THOMAS FROM THE ALPHABETIZE PROGRAM IN ";
5012 PRINT "THE BOOK 'SOME COMMON BASIC PROGRAMS' ";
5013 PRINT "BY LON POOLE AND MARY BORCHERS, ";
5014 PRINT "PUBLISHED BY OSBORNE & ASSOCIATES, INC. ";
5015 PRINT "MR. THOMAS MODIFIED THE PROGRAM TO ";
5016 PRINT "NUMBER THE LIST, AS WELL AS PLACE THE ";
5017 PRINT "ITEMS IN ALPHABETICAL ORDER."
5018 PRINT "HIS WORK WAS PUBLISHED IN THE APRIL, "
5019 PRINT "1979 ISSUE OF KILOBAUD MICROCOMPUTING."
5020 PRINT : PRINT
5021 PRINT " I MODIFIED THE PROGRAM TO WORK WITH ";
5022 PRINT "UP TO 999 ITEMS, AND CONSERVE MEMORY ";
5023 PRINT "SPACE BY AUTOMATICALLY DIMENSIONING ";
5024 PRINT "THE VARIABLE 'A$' IN LINE 40."
5050 FOR T = 1 TO 30000: NEXT T
5051 RETURN
5100 END

Text found in RIC_Programs_58.dsk/AUTO NUMBER.bas:

0 TEXT : HOME : REM CREDITS
1 REM ***********************
2 REM * *
3 REM * AUTO-NUMBER *
4 REM * *
5 REM * BY *
6 REM * *
7 REM * GERALD CAHILL *
8 REM * 2550-90 EAST AVE I *
9 REM * LANCASTER, CA 93634 *
10 REM * *
11 REM * FROM *
12 REM * *
13 REM * CALL-APPLE *
14 REM * OCTOBER, 1979 *
15 REM * PAGES 5 - 8 *
16 REM * *
17 REM * MODIFIED BY *
18 REM * *
19 REM * DAVID M. MURDOCH *
20 REM * 91 WEST VINE STREET *
21 REM * SHIREMANSTOWN, PA *
22 REM * 17011 *
23 REM * *
24 REM ***********************
25 REM
26 HOME : VTAB 12: HTAB 15
27 FLASH : PRINT "AUTO-NUMBER": NORMAL
28 FOR T = 1 TO 3000: NEXT T: HOME
29 PRINT
30 PRINT " THIS PROGRAM WILL AUTOMATICALLY "
31 PRINT "NUMBER APPLESOFT STATEMENTS AS THEY ARE"
32 PRINT "INPUT."
33 PRINT
34 PRINT " REQUIRES APPLESOFT AND DOS 3.2"
35 PRINT : PRINT : PRINT
36 HTAB 6
37 INPUT "STARTING LINE NUMBER ? ";START$
38 PRINT : PRINT
39 PRINT : PRINT : PRINT : PRINT "IS THIS CORRECT?";: GET A$
40 IF A$ = "N" THEN HOME : GOTO 29
41 HOME : VTAB 6
42 PRINT " TYPE 'CTRL X' TO STOP THE AUTO- "
43 PRINT "NUMBERING. THE CURRENT LINE WILL BE "
44 PRINT "IGNORED AND THIS ROUTINE RETURNS TO "
45 PRINT "APPLESOFT BASIC."
46 PRINT
47 PRINT " CALL 787 TO RESTART NUMBERING WITH"
48 PRINT "THE LINE NUMBER WHICH WAS IGNORED WHEN"
49 PRINT "THE LAST 'CTRL X' WAS TYPED."
50 VTAB 17
51 PRINT "PRESS SPACE BAR TO START AUTO NUMBERING":
52 PRINT "WITH LINE NUMBER ";: INVERSE : PRINT START$;
53 NORMAL
54 POKE -16368,0: WAIT -16384,128: WAIT -16384,1,1
55 HOME
56 FOR L = 1028 TO 1059: READ X: POKE L,X: NEXT L
57 FOR L = 1152 TO 1191: READ X: POKE L,X: NEXT L
58 FOR L = 1280 TO 1319: POKE L,159: NEXT L
59 POKE 34,4: HOME
60 FOR L = 770 TO 899: READ X: POKE L,X: NEXT L
61 M = 898: REM MEMORY LOCATION FOR START COUNT
62 FOR COUNT = 1 TO LEN(START$)
63 DIGIT$ = LEFT$( RIGHT$(START$,COUNT),1)
64 DIGIT = VAL(DIGIT$)
65 POKE M,DIGIT
66 M = M -1
67 NEXT COUNT
68 REM : $302 TO $384 = LOCATION OF MACHINE CODE PROGRAM
69 REM
70 REM ********************
71 REM * *
72 REM * LINE 87 WILL *
73 REM * DELETE ALL THIS *
74 REM * MESS SO AS NOT *
75 REM * TO INTERFERE *
76 REM * WITH NEW *
77 REM * PROGRAM *
78 REM * *
79 REM ********************
80 REM
81 HOME
82 DATA 129,144,144,140,133,157,155,160,160,160,129,144,144,140,133,147,143,134,148,160,160,129,149,148,143,173,142,149,141,130,133,146
83 DATA 131,148,146,140,160,152,160,148,143,160,147,148,143,144,160,160,160,160,160,160,160,131,129,140,140,160,183,184,183,160,148,143,160,146,133,147,148,129,146,148
84 DATA 72,138,72,162,5,189,120,3,157,126,3,202,16,247,104,170,104,72,169,33,133,56,169,3,133,57,32,234,3,104,96,72,138,201,6,16,10,104,145,40,189,126,3,24,105,176,96,104,44,0,192,16,251,145,40,173,0,192,44,16,192,72,201,152,208,13
85 DATA 169,27,133,56,169,253,133,57,32,234,3,104,96,201,141,240,2,104,96,138,72,162,3,254,126,3,189,126,3,201,10,48,8,169,0,157,126,3,202,16,238,144,5,169,1,157,126,3,104,170,104,96,240,240,240,240,0,240,240,240,240,240,0,240
86 CALL 787

Text found in RIC_Programs_58.dsk/AUTOSTART ROM EDITOR.bas:

10 HOME
20 VTAB 12: HTAB 4: PRINT "* AUTOSTART ROM EDITOR *"
25 VTAB 22: PRINT "FOUND IN : "
30 VTAB 24: PRINT " THE BEST OF OF THE CIDER PRESS 1978-79 "
40 FOR I = 1 TO 5000: NEXT
45 HOME
50 VTAB 3
60 PRINT "WITH THIS ROUTINE YOU CAN HAVE ALL THE EDITING FEATUERS OF THE AUTOSTART ROM CHIP PLUS A FEW OTHER CONVENIENCES. HEREIS A LISTING OF THE NEW COMMANDS WHICH YOU WILL NOW HAVE AVAILABLE TO YOU : "
70 PRINT : PRINT
80 PRINT TAB( 4)"ESC-I...MOVE CURSOR UP
85 PRINT TAB( 8)"J...MOVE CURSOR LEFT
90 PRINT TAB( 8)"K...MOVE CURSOR RIGHT
95 PRINT TAB( 8)"E...CLEAR TO END OF LINE
100 PRINT TAB( 8)"F...CLEAR TO END OF PAGE
105 PRINT : PRINT
110 PRINT TAB( 3)"CTRL-Z...COPY TO END OF LINE
115 PRINT TAB( 8)"Q...POKE 33,33
120 PRINT TAB( 8)"S...STOP SCREEN SCROLLING
130 GOSUB 3000
140 VTAB 3
150 PRINT " UP ---> I "
160 PRINT : PRINT : PRINT
170 PRINT " LEFT ---> J K <--- RIGHT "
180 PRINT : PRINT : PRINT
190 PRINT " RIGHT ---> M "
200 PRINT : PRINT : PRINT
210 PRINT "ONE PRESS OF THE ESC. KEY WILL CONTINUE THE CURSOR MOVEMENT UNTIL A NON-COMMAND KEY IS PRESSED. THIS MEANS THAT YOU CAN MOVE FROM THE BOTTOM OF THE SCREEN TO THE TOP SIMPLY BY USING THE SERIES :"
215 PRINT
220 PRINT "ESC. - I - REPT (HOLD THE I WHILE USING THE REPT) "
230 GOSUB 3000
250 VTAB 3
260 PRINT " FOR THE CTRL CHARATERS THE CTRL KEY MUST BE DEPRESSED ALONG WITH THE - Q - OR - Z - AT ALL TIMES. THE CTRL-Q FUNC-TION SETS THE SCREEN WIDTH TO 33.
265 PRINT "THIS WILL RID YOU OF ALL THOSE EXTRA SPACES IN THE MARGIN WHICH YOU ARE FOR- EVER HAVING TO SKIP OVER IN EDITING PRINT STATEMENTS."
270 PRINT : PRINT
280 PRINT " THE CTRL-Z FUNCTION IS EVEN HANDIER. WITH THIS YOU NO LONGER NEED TO TO USE REPEATED RIGHT ARROWS TO COPY THE LINE. WHEN YOU PRESS THE CTRL-Z THE APPLE WILLCOPY TO THE END OF THE LINE FOR YOU ! "
290 GOSUB 3000
300 VTAB 3
310 PRINT " TO USE THIS PROGRAM D O S MUST BE ACTIVE. THE EDITOR REMAINS 'LIVE' UNTILYOU PRESS RESET,REGARDLESS OF ANY FP'S OR INT'S.
315 PRINT
320 PRINT " TO REACTIVATE THE EDITOR THE EDITOR USE : CALL 768 OR FROM THE MONITOR : 0300G .
330 PRINT : PRINT
340 PRINT " THIS PROGRAM IS LOCATED AT : A$0300 , L$CF
350 PRINT : PRINT : PRINT
360 PRINT "TO BLOAD THIS PROGRAM - PRESS .. 1 TO RETURN TO MENU - PRESS .. 0 TO END THIS PROGRAM - PRESS ..ANY KEY "
400 GET A$
410 PRINT : IF A$ = "1" THEN HOME : PRINT CHR$(4);"BLOAD AUTOSTART ROM EDITOR.X";
420 PRINT : IF A$ = "0" THEN HOME : PRINT CHR$(4);"CATALOG"
430 FOR M = 1 TO 1000: NEXT M
2980 HOME
2990 PRINT CHR$(4);"RUN HELLO"
3000 VTAB 24: PRINT " PRESS RETURN TO CONTINUE .... ";
3025 INPUT PAUSE$
3500 HOME : VTAB 3: RETURN

Text found in RIC_Programs_58.dsk/BACKWARD MEMORY MOVE.bas:

10 REM BACKWARDS MEMORY MOVE BY LEE REYNOLDS CALL -APPLE * JUL/AUG 1980
100 REM STORE BACKWARDS MEM MOVE ROUTINE
110 A$ = "300:84 47 A0 00 B1 3C 91 42 A5 42 D0 02 C6 43 C6 42 A5 3E C5 3C A5 3F E5 3D A5 3C D0 02 C6 3D C6 3C 90 E2 A4 47 60 N D823G"
120 FOR I = 1 TO LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT I
130 POKE 72,0: CALL -144
140 REM FOLLOWING ROUTINE SAVES Y REG.,CLEARS IT, CALLS MONITOR MEMORYMOVE ROUTINE, RESTORES Y REG.
150 A$ = "325:84 47 A0 00 20 2C FE A4 47 60 N D823G"
160 FOR I = 1 TO LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT I
170 POKE 72,0: CALL -144
180 REM GET SOURCE, DESTINATION OF MOVE
190 INPUT "SOURCE BEGIN ADDR.?";T1: INPUT "SOURCE END ADDR.?";T2: INPUT "DESTINATION BEGIN ADDR.?";T3
200 T = T3 >T1 AND T3 MEM MOVE ROUTINE
260 T = INT(T1/256): POKE 61,T: POKE 60,T1 -256 *T
270 T = INT(T2/256): POKE 63,T: POKE 62,T2 -256 *T
280 T = INT(T3/256): POKE 67,T: POKE 66,T3 -256 *T
290 PRINT PEEK(60), PEEK(61): PRINT PEEK(62), PEEK(63): PRINT PEEK(66), PEEK(67)
300 CALL MOVE: RETURN

Text found in RIC_Programs_58.dsk/BASE CONVERT.bas:

5 HOME
10 PRINT " BASE CONVERSION "
20 PRINT : PRINT
30 PRINT "MODES: 1 - HEX > DECIMAL"
40 PRINT " 2 - DECIMAL > HEX"
42 PRINT " 3 - OCTAL > DECIMAL"
45 PRINT " 4 - DECIMAL > OCTAL"
50 PRINT : PRINT "WHICH MODE";
60 INPUT M
65 IF M < >1 AND M < >2 AND M < >3 AND M < >4 THEN 50
70 ON M GOSUB 1000,2000,3000,4000
80 PRINT "MORE DATA (Y/N) -- ";
90 GET A$
100 IF A$ < >"Y" THEN 9999
110 HOME : GOTO 30
1000 HOME
1010 PRINT "ENTER HEX--";: INPUT H$
1020 L = LEN(H$)
1030 S = 0
1040 FOR J = 1 TO L
1050 B$ = MID$ (H$,J,1)
1060 IF B$ < >"A" THEN 1080
1070 N = 10: GOTO 1190
1080 IF B$ < >"B" THEN 1100
1090 N = 11: GOTO 1190
1100 IF B$ < >"C" THEN 1120
1110 N = 12: GOTO 1190
1120 IF B$ < >"D" THEN 1140
1130 N = 13: GOTO 1190
1140 IF B$ < >"E" THEN 1160
1150 N = 14: GOTO 1190
1160 IF B$ < >"F" THEN 1180
1170 N = 15: GOTO 1190
1180 N = VAL( MID$ (H$,J,1))
1190 S = S +N *16 ^(L -J)
1200 NEXT J
1210 PRINT : PRINT "DECIMAL = ";S
1220 PRINT : RETURN
2000 HOME
2010 PRINT "ENTER DECIMAL ";: INPUT D
2020 D$ = STR$(D)
2030 L = LEN(D$)
2040 S$ = " "
2050 FOR J = 1 TO L
2060 Q = INT(D/16)
2070 R = 16 *(D/16 - INT(D/16))
2080 IF R < >10 THEN 2100
2090 R$ = "A": GOTO 2210
2100 IF R < >11 THEN 2120
2110 R$ = "B": GOTO 2210
2120 IF R < >12 THEN 2140
2130 R$ = "C": GOTO 2210
2140 IF R < >13 THEN 2160
2150 R$ = "D": GOTO 2210
2160 IF R < >14 THEN 2180
2170 R$ = "E": GOTO 2210
2180 IF R < >15 THEN 2200
2190 R$ = "F": GOTO 2210
2200 R$ = STR$(R)
2210 S$ = R$ +S$
2215 D = Q
2220 NEXT J
2230 PRINT : PRINT "HEX = ";S$
2240 PRINT : RETURN
3000 HOME
3010 PRINT "ENTER OCTAL";: INPUT O
3020 O$ = STR$(O)
3030 L = LEN(O$)
3040 S = 0
3050 FOR J = L -1 TO 0 STEP -1
3060 N = INT(O/10 ^J +.5)
3070 S = S +N *8 ^J
3080 O = O -N *10 ^J
3090 NEXT J
3100 PRINT : PRINT "DECIMAL = ";S
3110 PRINT : RETURN
4000 HOME
4010 PRINT "ENTER DECIMAL";: INPUT D
4020 D$ = STR$(D)
4030 L = LEN(D$)
4040 S = 0
4050 FOR J = L -1 TO 0 STEP -1
4060 N = INT(D/8 ^J +.5)
4070 S = S +N *10 ^J
4080 D = D -N *8 ^J
4090 NEXT J
4100 PRINT : PRINT "OCTAL = ";S
4110 PRINT : RETURN
9999 PR# 6

Text found in RIC_Programs_58.dsk/COPY LHS.X.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A2 00 86 FA A5 37 C9 FD D0 02 A2 1D AD FD 0D C9 "..z%7I} P.".-}.I
$000010 60 F0 19 C9 EA D0 04 E0 1D D0 03 4C 03 E0 20 E3 `p.IjP.` .P.L.` c
$000020 03 84 0E 85 0F 20 DC 03 84 10 85 11 A5 10 A0 08 ..... \. ....%. .
$000030 91 0E A5 11 C8 91 0E A9 BF 85 33 A9 4C 85 00 A9 ..%.H..) ?.3)L..)
$000040 0D 85 02 E0 1D F0 6E 20 58 FC 20 FD 0D 20 2C 0B ...`.pn X| }. ,.
$000050 53 48 41 4C 4C 20 49 20 55 53 45 20 41 4E 44 20 SHALL I USE AND
$000060 48 45 4E 43 45 20 4F 56 45 52 57 52 49 54 45 8D HENCE OV ERWRITE.
$000070 52 41 4D 20 4D 45 4D 4F 52 59 20 55 53 45 44 20 RAM MEMO RY USED
$000080 42 59 20 41 50 50 4C 45 20 44 4F 53 3F 00 20 0C BY APPLE DOS?. .
$000090 0B C9 D9 F0 06 C9 CE F0 17 D0 F3 20 ED FD 20 89 .IYp.INp .Ps m} .
$0000A0 FE 20 93 FE A2 1D A9 60 8D D0 03 8D D3 03 D0 05 ~ .~".)` .P..S.P.
$0000B0 20 ED FD A2 00 8A 18 65 0F 38 E9 2F 85 0D 20 80 m}"...e .8i/.. .
$0000C0 FE 20 29 0B 4D 41 53 54 45 52 00 A0 01 B1 0E 4A ~ ).MAST ER. .1.J
$0000D0 4A 4A 4A 85 08 C8 B1 0E 85 09 A9 00 20 E3 0B A5 JJJ..H1. ..). c.%
$0000E0 05 85 03 4A 4A 4A 4A 85 08 A5 06 85 04 20 80 FE ...JJJJ. .%... .~
$0000F0 20 2C 0B 8D 8D 8D 20 43 4F 50 59 20 00 A9 04 20 ,.... C OPY .).
$000100 E3 0B A2 80 A5 03 C5 05 D0 08 A5 04 C5 06 D0 02 c.".%.E. P.%.E.P.
$000110 A2 00 86 14 A9 0A 85 22 20 58 FC A9 08 20 5B FB "...).." X|). [{
$000120 20 2C 0B 53 45 43 54 4F 52 53 2F 4C 4F 41 44 3D ,.SECTO RS/LOAD=
$000130 00 A6 0D 20 8F 0B 20 A1 0B 24 14 10 1E 20 2C 0B .&. .. ! .$... ,.
$000140 41 4E 44 20 43 4F 50 59 20 28 42 4C 41 4E 4B 29 AND COPY (BLANK)
$000150 20 44 49 53 4B 45 54 54 45 8D 00 20 4D 0B A9 00 DISKETT E.. M.).
$000160 A0 03 91 0E A0 05 91 0E A9 11 88 91 0E 20 06 0D ... ... ).... ..
$000170 90 06 20 69 0D 4C EF 0A A0 0E B1 0E A2 02 20 78 .. i.Lo. .1.". x
$000180 0B 20 57 0C 20 58 FC 20 2C 0B 44 4F 20 59 4F 55 . W. X| ,.DO YOU
$000190 20 57 41 4E 54 20 54 4F 20 49 4E 49 54 49 41 4C WANT TO INITIAL
$0001A0 49 5A 45 20 43 4F 50 59 8D 44 49 53 4B 45 54 54 IZE COPY .DISKETT
$0001B0 45 3F 00 20 0C 0B C9 D9 F0 33 C9 CE D0 F5 20 ED E?. ..IY p3INPu m
$0001C0 FD 20 BD 0B A9 00 A0 03 91 0E A9 01 A0 04 91 0E } =.). . ..). ...
$0001D0 C8 91 0E 20 1C 0D 90 09 20 8E FD 20 69 0D 4C 87 H.. .... .} i.L.
$0001E0 09 A0 0E B1 0E A2 06 20 78 0B 4C 63 0A 20 ED FD . .1.". x.Lc. m}
$0001F0 20 29 0B 8D 56 4F 4C 55 4D 45 20 4E 4F 2E 20 4F )..VOLU ME NO. O
$000200 46 20 43 4F 50 59 20 44 49 53 4B 45 54 54 45 00 F COPY D ISKETTE.
$000210 20 6A FD A0 00 84 15 B9 00 02 C9 8D F0 13 29 0F j} ...9 ..I.p.).
$000220 85 16 A5 15 0A 0A 18 65 15 0A 65 16 85 15 C8 D0 ..%....e ..e...HP
$000230 E6 A5 15 D0 02 A5 07 A2 06 20 78 0B 20 BD 0B A5 f%.P.%." . x. =.%
$000240 07 A0 03 91 0E 20 29 0B 49 4E 49 54 49 41 4C 49 . ... ). INITIALI
$000250 5A 49 4E 47 8D 00 A9 04 20 1C 0D 90 06 20 69 0D ZING..). .... i.
$000260 4C EF 0A A9 00 85 08 85 09 85 18 A0 03 91 0E 20 Lo.).... ... ...
$000270 94 0B 20 80 FE 20 2C 0B 52 45 41 44 49 4E 47 00 .. .~ ,. READING.
$000280 20 84 FE A9 06 85 01 A5 08 85 0A A5 09 85 0B 20 .~)...% ...%...
$000290 63 0C A5 0A 85 08 A5 0B 85 09 20 BD 0B A9 0A 85 c.%...%. .. =.)..
$0002A0 24 20 80 FE 20 2C 0B 57 52 49 54 49 4E 47 00 20 $ .~ ,.W RITING.
$0002B0 84 FE A9 1A 85 01 20 63 0C A5 08 C9 23 D0 B0 20 .~)... c .%.I#P0
$0002C0 8E FD A9 12 20 5B FB 20 2C 0B 44 49 53 4B 45 54 .}). [{ ,.DISKET
$0002D0 54 45 20 43 4F 50 49 45 44 2E 20 20 20 00 A6 18 TE COPIE D. .&.
$0002E0 20 8F 0B 20 2C 0B 20 45 52 52 4F 52 53 2E 00 A0 .. ,. E RRORS..
$0002F0 08 A5 10 91 0E C8 A5 11 91 0E A5 03 A0 01 91 0E .%...H%. ..%. ...
$000300 A5 04 C8 91 0E A9 00 85 22 4C 03 E0 2C 10 C0 2C %.H..).. "L.`,.@,
$000310 00 C0 10 FB AD 00 C0 2C 10 C0 60 09 30 20 ED FD .@.{-.@, .@`.0 m}
$000320 20 10 FC 20 0C 0B C9 8D 60 20 58 FC 68 85 15 68 .| ..I. ` X|h..h
$000330 85 16 A0 00 E6 15 D0 02 E6 16 B1 15 F0 08 09 80 .. .f.P. f.1.p...
$000340 20 ED FD 4C 34 0B A5 16 48 A5 15 48 60 2C 10 C0 m}L4.%. H%.H`,.@
$000350 20 2C 0B 8D 50 52 45 53 53 20 52 45 54 55 52 4E ,..PRES S RETURN
$000360 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 20 0C 0B TO CONT INUE. ..
$000370 C9 8D D0 F9 20 8E FD 60 85 07 8A 20 5B FB A9 15 I.Py .}` ... [{).
$000380 85 24 20 2C 0B 56 4F 4C 55 4D 45 3D 00 A6 07 A9 .$ ,.VOL UME=.&.)
$000390 00 4C 1B E5 20 58 FC 24 14 30 21 20 A1 0B 4C DD .L.e X|$ .0! !.L]
$0003A0 0B 20 29 0B 49 4E 53 45 52 54 20 4D 41 53 54 45 . ).INSE RT MASTE
$0003B0 52 20 44 49 53 4B 45 54 54 45 8D 00 60 20 58 FC R DISKET TE..` X|
$0003C0 24 14 30 F8 20 2C 0B 49 4E 53 45 52 54 20 43 4F $.0x ,.I NSERT CO
$0003D0 50 59 20 44 49 53 4B 45 54 54 45 8D 00 20 4D 0B PY DISKE TTE.. M.
$0003E0 4C 58 FC 85 17 20 2C 0B 20 44 49 53 4B 45 54 54 LX|.. ,. DISKETT
$0003F0 45 3A 00 20 84 FE A5 17 20 5B FB A9 16 85 24 20 E:. .~%. [{)..$
$000400 2C 0B 20 53 4C 4F 54 3D 00 A5 08 20 1B 0B D0 04 ,. SLOT= .%. ..P.
$000410 A5 08 09 B0 20 ED FD 29 0F C9 01 90 D9 C9 08 B0 %..0 m}) .I..YI.0
$000420 D5 0A 0A 0A 0A 85 05 E6 17 A5 17 20 5B FB A9 16 U......f .%. [{).
$000430 85 24 20 2C 0B 44 52 49 56 45 3D 00 A5 09 20 1B .$ ,.DRI VE=.%. .
$000440 0B D0 04 A5 09 09 B0 20 ED FD 29 0F C9 01 90 D9 .P.%..0 m}).I..Y
$000450 C9 03 B0 D5 85 06 60 A9 00 A0 08 91 0E A9 0E C8 I.0U..`) . ...).H
$000460 91 0E 60 A9 00 85 0C 20 57 0C A5 08 0A 0A 18 69 ..`)... W.%....i
$000470 38 A8 B1 10 85 12 C8 B1 10 85 13 A9 0D 38 E5 09 8(1...H1 ...).8e.
$000480 AA 06 13 26 12 CA D0 F9 B0 64 A9 0B 20 5B FB 20 *..&.JPy 0d). [{
$000490 2C 0B 8D 54 52 41 43 4B 3D 00 A5 08 A0 04 91 0E ,..TRACK =.%. ...
$0004A0 20 DA FD 20 2C 0B 20 20 53 45 43 54 4F 52 3D 00 Z} ,. SECTOR=.
$0004B0 A5 09 A0 05 91 0E 20 DA FD 20 00 00 90 1F 20 43 %. ... Z } .... C
$0004C0 0D A0 09 B1 0E 85 3D 85 3F 85 43 A0 00 84 3C A9 . .1..=. ?.C ..<)
$0004D0 FE 85 3E A9 01 85 42 98 91 3C 20 2C FE E6 0C A5 ~.>)..B. .< ,~f.%
$0004E0 0C C5 0D F0 20 A0 09 B1 0E 18 69 01 91 0E E6 09 .E.p .1 ..i...f.
$0004F0 A5 09 C9 0D D0 0C E6 08 A5 08 C9 23 F0 07 A9 00 %.I.P.f. %.I#p.).
$000500 85 09 4C 6A 0C 60 A9 01 A0 0C 91 0E A5 03 A0 01 ..Lj.`). ...%. .
$000510 91 0E A5 04 C8 91 0E 4C 2B 0D A9 02 A0 0C 91 0E ..%.H..L +.). ...
$000520 A5 05 A0 01 91 0E A5 06 C8 91 0E A4 0E A5 0F 20 %. ...%. H..$.%.
$000530 D9 03 A0 01 B1 0E A0 0F 91 0E A0 02 B1 0E A0 10 Y. .1. . .. .1. .
$000540 91 0E 60 20 8E FD 20 9C FC A0 0D B1 0E C9 80 D0 ..` .} . | .1.I.P
$000550 0C A5 08 C9 02 D0 06 A5 09 C9 09 B0 02 E6 18 A6 .%.I.P.% .I.0.f.&
$000560 18 20 8F 0B A9 BA 20 ED FD 20 2C 0B 45 52 52 4F . ..): m } ,.ERRO
$000570 52 20 28 00 A0 0D B1 0E C9 10 F0 1C C9 20 F0 30 R (. .1. I.p.I p0
$000580 C9 80 F0 44 20 2C 0B 44 52 49 56 45 20 45 52 52 I.pD ,.D RIVE ERR
$000590 4F 52 29 8D 00 4C D8 0D 20 2C 0B 57 52 49 54 45 OR)..LX. ,.WRITE
$0005A0 20 50 52 4F 54 45 43 54 45 44 29 8D 00 4C D8 0D PROTECT ED)..LX.
$0005B0 20 2C 0B 56 4F 4C 55 4D 45 20 4D 49 53 4D 41 54 ,.VOLUM E MISMAT
$0005C0 43 48 29 8D 00 4C D8 0D 20 2C 0B 52 45 41 44 20 CH)..LX. ,.READ
$0005D0 45 52 52 4F 52 29 8D 00 A5 18 C9 01 D0 1E 20 2C ERROR).. %.I.P. ,
$0005E0 0B 41 42 4F 52 54 3F 00 20 0C 0B C9 CE F0 0A C9 .ABORT?. ..INp.I
$0005F0 D9 D0 E5 20 ED FD 4C EF 0A 4C ED FD 60 EA 20 2C YPe m}Lo .Lm}`j ,
$000600 0B 20 20 20 20 20 20 44 49 53 4B 45 54 54 45 20 . D ISKETTE
$000610 43 4F 50 59 20 52 4F 55 54 49 4E 45 8D 20 20 20 COPY ROU TINE.
$000620 20 20 4C 41 57 52 45 4E 43 45 20 48 41 4C 4C 20 LAWREN CE HALL
$000630 30 46 20 53 43 49 45 4E 43 45 8D 8D 55 53 49 4E 0F SCIEN CE..USIN
$000640 47 20 52 45 41 44 2D 57 52 49 54 45 2D 54 52 41 G READ-W RITE-TRA
$000650 43 4B 2D 53 45 43 54 4F 52 20 28 52 57 54 53 29 CK-SECTO R (RWTS)
$000660 8D 4F 46 20 41 50 50 4C 45 20 44 4F 53 20 20 41 .OF APPL E DOS A
$000670 4E 44 20 20 45 49 54 48 45 52 3A 8D 8D 31 2E 20 ND EITH ER:..1.
$000680 53 49 4E 47 4C 45 20 44 52 49 56 45 8D 32 2E 20 SINGLE D RIVE.2.
$000690 44 55 41 4C 20 44 52 49 56 45 2C 20 53 49 4E 47 DUAL DRI VE, SING
$0006A0 4C 45 20 43 4F 4E 54 52 4F 4C 4C 45 52 8D 33 2E LE CONTR OLLER.3.
$0006B0 20 44 55 41 4C 20 44 52 49 56 45 2C 20 44 55 41 DUAL DR IVE, DUA
$0006C0 4C 20 43 4F 4E 54 52 4F 4C 4C 45 52 8D 8D 8D 57 L CONTRO LLER...W
$0006D0 41 52 4E 49 4E 47 3A 20 20 44 49 53 4B 20 45 52 ARNING: DISK ER
$0006E0 52 4F 52 53 3A 8D 8D 54 52 41 43 4B 20 32 2C 20 RORS:..T RACK 2,
$0006F0 53 45 43 54 4F 52 53 20 39 20 54 48 52 55 20 31 SECTORS 9 THRU 1
$000700 32 20 4D 41 59 8D 47 45 4E 45 52 41 54 45 20 52 2 MAY.GE NERATE R
$000710 45 41 44 20 45 52 52 4F 52 53 20 41 4E 44 20 57 EAD ERRO RS AND W
$000720 49 4C 4C 20 4E 4F 54 8D 42 45 20 43 4F 55 4E 54 ILL NOT. BE COUNT
$000730 45 44 2E 8D 8D 8D 54 4F 20 52 45 53 54 41 52 54 ED....TO RESTART
$000740 2C 20 54 59 50 45 3A 20 43 41 4C 4C 20 32 30 34 , TYPE: CALL 204
$000750 38 8D 8D 8D 00 A9 60 8D FD 0D 60 .. .. .. .. .. 8....)`. }.`
** END **

Text found in RIC_Programs_58.dsk/COPY LHS.bas:

100 REM DISKETTE COPY ROUTINE
110 REM BY LHS
120 PRINT " BRUN COPY LHS.X"

Text found in RIC_Programs_58.dsk/CTRL CHAR FIND.bas:

0 TEXT : CALL -936
5 GOSUB 200
10 DATA 201,141,240,21,201,136
20 DATA 240,17,201,128,144,13
30 DATA 201,160,176,9,72,132
40 DATA 53,56,233,64,76,249
50 DATA 253,76,240,253
60 FOR I = 768 TO 768 +27
70 READ V: POKE I,V: NEXT I
80 POKE 54,0: POKE 55,3
90 CALL 1002
100 GOTO 300
200 PRINT "DO YOU WISH INSTRUCTIONS (Y/N)";: INPUT I$
210 IF I$ < >"Y" THEN RETURN
215 TEXT : CALL -936
220 PRINT "WHEN TYPING FILE NAMES, THE USE OF SPECIAL KEYS SUCH AS 'ESC', THE LEFT-ARROW AND RIGHT-ARROW KEYS, AND CERTAIN KEYS TYPED WITH THE 'CTRL' KEY ('CONTROL' CHARACTERS 'CTRL-C', 'CTRL-H') MAY HAVE UNEXPECTED EFFECTS."
225 FOR T = 1 TO 7000: NEXT T: PRINT
230 PRINT "IF A FILE NAME CONTAINS CONTROL CHARACTERS, YOU WON'T SEE THEM PRINTED, BUT THEY MUST BE TYPED TO USE OR DELETE THE FILE."
235 FOR T = 1 TO 4600: NEXT T: PRINT
240 PRINT "THE FOLLOWING APPLESOFT PROGRAM CAN BE USED TO FIND ANY HIDDEN CHARACTERS EXCEPT 'CTRL-M' (RETURN), ESC, 'CTRL-H' (LEFT-ARROW) AND 'CTRL-U (RIGHT-ARROW)."
245 FOR T = 1 TO 4200: NEXT T: PRINT
250 PRINT "IF YOU SUSPECT YOU MAY HAVE ACCIDENTALLY INTRODUCED A FILE NAME, RUN THIS PROGRAM."
255 FOR T = 1 TO 2800: NEXT T: PRINT
260 PRINT "THE APPLESOFT PROMPT (]) WILL BE DISPLAYED."
265 FOR T = 1 TO 1400: NEXT T: PRINT
270 PRINT "NEXT TYPE 'CATALOG' AND YOU WILL GET A LIST OF ALL THE FILES, WITH ANY CONTROL CHARACTERS SHOWN AS ";: FLASH : PRINT "FLASHING";: NORMAL : PRINT " CHARACTERS."
275 FOR T = 1 TO 4200: NEXT T: PRINT
280 PRINT "CONTROL CHARACTERS IN PROGRAM LISTINGS CAN ALSO BE FOUND THIS WAY."
285 FOR T = 1 TO 2400: NEXT T: PRINT
290 PRINT "TO REINSTATE NORMAL PRINTOUTS, TYPE 'PR#0'."
295 FOR T = 1 TO 5000: NEXT T: PRINT "": RETURN
300 INPUT "WILL YOU TRY THIS NOW (Y/N)? ";AP$
310 IF AP$ = "Y" THEN END
320 PR# 6

Text found in RIC_Programs_58.dsk/CURSORS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 0C 00 20 00 47 00 59 00 5B 00 68 00 75 00 82 00 .. .G.Y. [.h.u...
$000010 95 00 9B 00 9B 00 9B 00 9B 00 00 00 00 00 00 00 ........ ........
$000020 09 2D 2D 15 3F 3F 3F 17 2D 2D 2D 2D 3E 3F 3F 3F .--.???. ---->???
$000030 37 2D 2D 2D 2D 3E 3F 3F 3F 37 2D 2D 2D 2D 1E 3F 7---->?? ?7----.?
$000040 3F 3F 0E 2D 2D 96 00 09 2D 2D 15 15 36 36 1E 1E ??.--... --..66..
$000050 3F 3F 1C 1C 24 24 0C 05 00 1D 00 36 36 36 2E 2D ??..$$.. ...666.-
$000060 2D 24 24 24 3C 3F 3F 00 12 36 36 2D 2D 25 24 3C -$$$ $000070 3F 3F 18 08 00 2E 68 49 29 B6 92 32 3F DB 1B 27 ??....hI )6.2?[.'
$000080 04 00 92 92 92 92 92 2D 2D 2D 2D 25 C0 C0 C0 C0 .......- ---%@@@@
$000090 C0 C0 C0 1B 00 2D 3E 37 2D 05 00 0D 16 1F 07 00 @@@..->7 -.......
$0000A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000C0 00 00 00 00 00 00 00 00 A0 00 A5 3C C9 00 D0 02 ........ .%.@ %>I.P.F?
$0000E0 C6 3E A5 40 C9 00 D0 02 C6 41 C6 40 A5 3D C5 3F F>%@I.P. FAF@%=E?
$0000F0 D0 E2 A5 3C C5 3E D0 DC 60 D8 A0 00 4C 2C FE .. Pb%P\ `X .L,~
** END **

Text found in RIC_Programs_58.dsk/HELLO.bas:

1 FOR A = 1 TO 500: NEXT A: TEXT : HOME
2 D$ = ""
107 HOME
110 PRINT "DO YOU WANT TO:": PRINT : PRINT : PRINT : PRINT
120 PRINT " 1. LOAD A PROGRAM": PRINT
130 PRINT " 2. RUN A PROGRAM": PRINT
140 PRINT " 3. END FOR NOW": PRINT
145 FLASH
150 INPUT "ENTER A NUMBER (1, 2, OR 3) ";A
155 NORMAL
160 IF A <1 THEN PRINT "NUMBER MUST BE GREATER THAN 0": FOR M = 1 TO 5000: NEXT M: HOME : GOTO 110
170 IF A >3 THEN PRINT "NUMBER MUST BE LESS THAN 3": FOR M = 1 TO 5000: NEXT M: HOME : GOTO 110
180 IF A = 1 THEN 1000
190 IF A = 2 THEN 1000
200 IF A = 3 THEN END
1000 HOME
1010 PRINT TAB( 18)"MENU"
1020 PRINT : PRINT : PRINT
1025 GOSUB 7000
1030 PRINT " 1. APPLEBETIZE"
1040 PRINT " 2. AUTO NUMBER"
1050 PRINT " 3. AUTOSTART ROM EDITOR"
1060 PRINT " 4. BACKWARD MEMORY MOVE"
1070 PRINT " 5. MULTIPLE BASE CONVERTER"
1080 PRINT " 6. MASTER COPY PROGRAM"
1090 PRINT " 7. CONTROL CHARACTER FINDER"
1100 PRINT " 8. HIDE CATALOG PROGRAM NAMES"
1120 PRINT " 9. KEYEDIT AND UTILITY SYSTEM"
1130 PRINT " 10. LINE INPUT UTILITY"
1140 PRINT : PRINT : INPUT "ENTER A NUMBER FROM 1 TO 10 ";B
1150 IF B <1 THEN PRINT "NUMBER LESS THAN 1--REENTER": FOR M = 1 TO 5000: NEXT M: GOTO 1000
1160 IF B >10 THEN PRINT "NUMBER GREATER THAN 10--REENTER": FOR M = 1 TO 5000: NEXT M: GOTO 1000
1165 D$ = ""
1170 IF A = 1 AND B = 1 THEN PRINT D$;"LOAD ";E$
1180 IF A = 1 AND B = 2 THEN PRINT D$;"LOAD ";F$
1190 IF A = 1 AND B = 3 THEN PRINT D$;"LOAD ";G$
1200 IF A = 1 AND B = 4 THEN PRINT D$;"LOAD ";H$
1300 IF A = 1 AND B = 5 THEN PRINT D$;"LOAD ";I$
1400 IF A = 1 AND B = 6 THEN PRINT D$;"LOAD ";J$
1500 IF A = 1 AND B = 7 THEN PRINT D$;"LOAD ";K$
1600 IF A = 1 AND B = 8 THEN PRINT D$;"LOAD ";L$
1610 IF A = 1 AND B = 9 THEN PRINT D$;"LOAD ";M$
1620 IF A = 1 AND B = 10 THEN PRINT D$;"LOAD ";N$
1630 IF A = 2 AND B = 1 THEN PRINT D$;"RUN ";E$
1640 IF A = 2 AND B = 2 THEN PRINT D$;"RUN ";F$
1650 IF A = 2 AND B = 3 THEN PRINT D$;"RUN ";G$
1660 IF A = 2 AND B = 4 THEN PRINT D$;"RUN ";H$
1670 IF A = 2 AND B = 5 THEN PRINT D$;"RUN ";I$
1680 IF A = 2 AND B = 6 THEN PRINT D$;"RUN ";J$
1690 IF A = 2 AND B = 7 THEN PRINT D$;"RUN ";K$
1700 IF A = 2 AND B = 8 THEN PRINT D$;"RUN ";L$
1710 IF A = 2 AND B = 9 THEN PRINT D$;"RUN ";M$
1720 IF A = 2 AND B = 10 THEN PRINT D$;"RUN ";N$
1730 END
7000 E$ = "APPLEBETIZE"
7010 F$ = "AUTO NUMBER"
7020 G$ = "AUTOSTART ROM EDITOR"
7030 H$ = "BACKWARD MEMORY MOVE"
7040 I$ = "BASE CONVERT"
7050 J$ = "COPY LHS"
7060 K$ = "CTRL CHAR FIND"
7070 L$ = "HIDE PROGRAM NAME"
7080 M$ = "KEYEDIT & UTILITY DOC"
7090 N$ = "LINE INPUT"
7100 RETURN
7200 END
0
5220

Text found in RIC_Programs_58.dsk/HIDE PROGRAM NAME.bas:

100 REM *******************
110 REM * HIDE ! *
120 REM * MARK CAPELLA *
130 REM * 07.07.79 *
140 REM *******************
150 HOME : LIST 100,140
160 D$ = CHR$(13) + CHR$(4): ONERR GOTO 310
170 PRINT "(...HIDE...)": FOR I = 1 TO 1000
180 PRINT D$"CATALOG"
190 PRINT : INVERSE : PRINT FI$;E$: NORMAL : PRINT : PRINT "(H)IDE, (R)ECOVER, (E)ND : ";: GET C$
200 IF C$ = CHR$(3) OR C$ = "E" GOTO 340
210 IF C$ = "C" THEN 180
220 IF C$ < >"R" AND C$ < >"H" THEN 190
230 PRINT : INPUT "WHAT IS THE FILE NAME :";FI$: IF FI$ = "" THEN 190
240 IF LEN(FI$) >11 THEN PRINT "FILE LENGTH MUST BE LESS THAN 11 CHRS ": PRINT : GOTO 190
250 F2$ = FI$: FOR I = LEN(FI$) +1 TO 30:F2$ = F2$ + CHR$(8): NEXT
260 ERR = 0: IF C$ = "H" THEN 290
270 IF ERR = 0 THEN PRINT D$"RENAME"F2$","FI$:E$ = " NOW RECOVERED"
280 GOTO 190
290 IF ERR = 0 THEN PRINT D$"RENAME"FI$","F2$:E$ = " NOW HIDDEN"
300 GOTO 190
310 IF PEEK(222) = 6 THEN PRINT : PRINT "FILE NOT FOUND !":ERR = 1: RESUME
320 IF PEEK(222) = 255 THEN 340
330 HOME : VTAB 3: PRINT "UNEXPECTED ERROR !": PRINT : POKE 216,0: RESUME
340 INVERSE : HOME : VTAB 10: HTAB 12: IF E$ = "" THEN PRINT "PROGRAM ENDED": GOTO 360
350 PRINT FI$" IS "E$
360 NORMAL : VTAB 2: PRINT CHR$(4);"RUN HELLO"

Text found in RIC_Programs_58.dsk/KEYEDIT & UTILITY DOC.bas:

10 REM ***********************
20 REM * AUTHOR- JIM PFEIFFER
30 REM * NORTHWEST SUBURBAN
40 REM * APPLE USERS GROUP
50 REM * (NSAUG) --PERMISSION
60 REM * GRANTED FOR FREE
70 REM * REPRODUCTION & USE.
80 REM ************************
90 HIMEM: 35327
100 PO = 0:EN = 0:IN = 0:AL = 0:AH = 0:LE = 0
110 DIM CA$(70)
120 D$ = "": REM CONTROL D
130 PRINT "NOMONI,C,O"
140 FOR X = 768 TO 863: READ V: POKE X,V: NEXT
150 X = 0: TEXT : HOME
160 DIM T$(70),FT$(70),DE$(70),BA(70),BL(70),SP(70)
170 DIM TN$(70),F2$(70),DN$(70),BN(70),B2(70),SN(70)
180 HOME : PRINT "CATALOG MANAGEMENT - EDIT PROGRAM": PRINT
190 PRINT "THIS PROGRAM IS ONE OF A PAIR. IT WILL CREATE A TEXT FILE FOR USE WITH THE 'CATALOG MANAGEMENT' PROGRAM"
200 PRINT "'CATALOG MANAGEMENT' IS INTENDED TO BE USED AS A HELLO PROGRAM WHICH WILL ALLOWTHE USER TO READ A DESCRIPTION OF THE PROGRAMS AVAILABLE ON THE DISK, AND ALSOPROVIDE A EASY WAY TO RUN OR LOAD A"
210 PRINT "PROGRAM BY NUMBER SELECTION"
220 PRINT : PRINT "SYSTEM MUST HAVE 48K AND DOS 3.2 BOOTED.PROGRAM ALLOWS ONLY UP TO 70 PROGRAMS PER DISK TO BE ENTERED."
230 PRINT : POKE -16368,0: INPUT " INSERT THE DISK YOU WISH TO USE (OR ARE CURRENTLY USING) THE 'CATALOG MANAGEMENT' PROGRAM ON. THEN HIT -OR- TYPE 'Q' & TO QUIT ";A$
240 IF A$ = "Q" THEN 1650
250 GOSUB 320
260 HOME : PRINT : PRINT "CATALOG MANAGEMENT - EDIT MENU ": PRINT : PRINT "SYSTEM MUST HAVE 48K AND DOS 3.2 BOOTED.IF YOUR DISK HAS MORE THAN 70 FILES DO NOT USE THIS PROGRAM."
270 VTAB 9: PRINT "<1> UPDATE PROGRAM LIST.": PRINT : PRINT "<2> CHANGE OR ADD DESCRIPTIONS.": PRINT : PRINT "<3> PRINT HARDCOPY CATALOG."
280 PRINT : PRINT "<4> EXIT PROGRAM."
290 IF ER = 1 THEN VTAB 18: INVERSE : PRINT "NO PROGRAMS IN PROGRAM LIST AT THIS TIME": NORMAL
300 VTAB 20: POKE -16368,0: INPUT "SELECTION BY NUMBER ? ";A$:A = VAL(A$): IF A <1 OR A >4 THEN 300
310 ON A GOTO 450,1150,1420,1650
320 ONERR GOTO 420
330 ER = 0
340 PRINT "OPEN PROG.LIST"
350 PRINT "READ PROG.LIST"
360 INPUT X
370 FOR C = 1 TO X
380 INPUT T$(C): INPUT FT$(C): INPUT DE$(C): INPUT SP(C)
390 NEXT
400 PRINT "CLOSE PROG.LIST"
410 POKE 216,0: RETURN
420 CALL 811:ER = 1
430 PRINT "CLOSE PROG.LIST"
440 POKE 216,0: RETURN
450 HOME : PRINT : HTAB 8: PRINT "UPDATE PROGRAM LIST"
460 VTAB 10: HTAB 15: FLASH : PRINT "WORKING": NORMAL
470 POKE 252,0: POKE 253,138
480 POKE 54,0: POKE 55,3: POKE 56,40: POKE 57,3: CALL 1002
490 PRINT "CATALOG"
500 PRINT "PR#0"
510 PRINT "IN#0"
520 PO = PEEK(108) *256 + PEEK(107) +7
530 EN = PEEK(252) + PEEK(253) *256
540 LE = 38:AL = 57:AH = 138
550 IN = 3
560 POKE PO,LE
570 POKE PO +1,AL
580 POKE PO +2,AH
590 PO = PO +IN
600 AL = AL +LE
610 IF AL >255 THEN AH = AH +1:AL = AL -256
620 IF AH *256 +AL >EN -1 THEN 640
630 GOTO 560
640 CALL 821
650 XN = 1:CA = 0
660 FOR C = 1 TO X
670 IF MID$ (CA$(CA),8,30) = T$(C) THEN 730
680 NEXT
690 TN$(XN) = MID$ (CA$(CA),8,30):F2$(XN) = LEFT$(CA$(CA),7)
700 CA = CA +1:XN = XN +1
710 IF CA$(CA) = "" THEN XN = XN -1: GOTO 740
720 GOTO 660
730 TN$(XN) = MID$ (CA$(CA),8,30):F2$(XN) = FT$(C):DN$(XN) = DE$(C):SN(XN) = SP(C): GOTO 700
740 HOME : PRINT "NEW FILES WILL BE DISPLAYED ONE BY ONE, INSERT DESCRIPTIONS AS NEEDED. DO NOT EXCEED 6 LINES OF DESCRIPTION."
750 FOR C = 1 TO XN
760 IF SN(C) < >0 THEN 840
770 VTAB 5: CALL -958: PRINT F2$(C);" ";TN$(C)
780 PRINT
790 PRINT "DESCRIPTION FOR THIS FILE--": POKE -16368,0: INPUT "";DN$(C)
800 IF DN$(C) = "" THEN DN$(C) = "--"
810 IF LEFT$(F2$(C),1) = "T" OR MID$ (F2$(C),2,1) = "T" THEN 830
820 PRINT : POKE -16368,0: INPUT "SHOULD USER BE ABLE TO RUN THIS PROGRAM FROM SELECTION LIST ? Y/N ";A$: IF LEFT$(A$,1) = "Y" THEN SN(C) = 2: GOTO 840
830 SN(C) = 1
840 NEXT
850 HOME : PRINT "EITHER THERE ARE NO NEW FILES OR YOU HAVE JUST ENTERED THE LAST DESCRIPTION."
860 PRINT : POKE -16368,0: INPUT " HIT ";A$
870 HOME : VTAB 10: HTAB 15: FLASH : PRINT "WORKING": NORMAL
880 ONERR GOTO 1020
890 PRINT "OPEN PROG.LIST"
900 PRINT "DELETE PROG.LIST"
910 PRINT "OPEN PROG.LIST"
920 PRINT "WRITE PROG.LIST"
930 PRINT XN
940 FOR C = 1 TO XN
950 PRINT TN$(C)
960 PRINT F2$(C): PRINT DN$(C): PRINT SN(C)
970 NEXT
980 PRINT "CLOSE PROG.LIST"
990 POKE 216,0
1000 IF DF = 1 THEN 1120
1010 GOTO 180
1020 CALL 811: POKE 216,0
1030 PRINT "CLOSE PROG.LIST"
1040 PRINT "DELETE PROG.LIST"
1050 HOME : PRINT : INVERSE : HTAB 12: PRINT "THE DISK IS FULL": PRINT : HTAB 6: PRINT "FOLLOW DIRECTIONS CAREFULLY": NORMAL
1060 PRINT : PRINT "IF YOU DO NOT FOLLOW DIRECTIONS YOU WILLLOSE THE PROG.LIST FILE"
1070 PRINT : PRINT "BE ADVISED TO WRITE THESE INSTRUCTIONS DOWN IF YOU CANNOT REMEMBER THEM, FOR AFTER THE FIRST STEP YOU MAY NO LONGER HAVE INSTRUCTIONS TO FOLLOW."
1080 PRINT : PRINT : HTAB 8: INPUT "HIT TO CONTINUE ";A$: HOME
1090 PRINT : PRINT "1. INSERT A DISK THAT IS NOT FULL AND HAS ROOM FOR THE FILE NAMED PROG.LIST"
1100 PRINT : PRINT : POKE -16368,0: INPUT "INSERT NEW DISK & HIT ";A$
1110 DF = 1: GOTO 880
1120 PRINT : PRINT "2. TRANSFER ONE OF YOUR PROGRAMS FROM THE DISK THAT IS FULL TO ANOTHER DISK THEN DELETE THAT PROGRAM TO MAKE ROOM FOR THE PROG.LIST FILE"
1130 PRINT : PRINT "3. LOAD THE 'CATALOG MANAGEMENT - EDIT' PROGRAM. INSERT THE DISK THAT THE PROG.LIST HAS BEEN SAVED ON AND THEN 'RUN'. WHEN THE MENU APPEARS, CHANGE THE DISK BACK AND ANSWER '1'"
1140 HIMEM: 38400: PR# 6
1150 IF X = 0 THEN 300
1160 HOME : PRINT "PROGRAMS WILL BE DISPLAYED ONE BY ONE."
1170 PRINT : PRINT " GIVES NO CHANGE TO DESCRIPTION": PRINT "'E' & ENDS CHANGES."
1180 PRINT "'R' & RETURN TO MENU WITHOUT MAKING ANY CHANGES TO FILE."
1185 PRINT
1190 PRINT "OR YOU MAY USE THE CURSOR MOVE KEYS TO COPY PARTS THAT YOU DO NOT WANT CHANGED AND TYPE IN NEW CHARECTERS FOR PARTS YOUWANT TO CHANGE OR ADD.(6 LINES MAXIMUM)"
1200 ED = 0:CG = 0:XN = X: FOR C = 1 TO XN
1210 VTAB 14: CALL -958: IF ED = 1 THEN 1290
1220 PRINT FT$(C);" ";T$(C): PRINT
1230 VTAB 15: PRINT DE$(C)
1240 VTAB 15: INPUT "";D$: IF D$ = "" THEN DN$(C) = DE$(C): GOTO 1290
1250 IF D$ = "R" THEN 260
1260 IF D$ = "E" AND CG = 0 THEN 260
1270 IF D$ = "E" THEN ED = 1: GOTO 1290
1280 DN$(C) = D$:CG = 1
1290 CALL -958:TN$(C) = T$(C):F2$(C) = FT$(C):SN(C) = SP(C): PRINT : IF ED = 1 THEN 1370
1300 IF LEFT$(F2$(C),1) = "T" OR MID$ (F2$(C),2,1) = "T" THEN 1370
1310 IF SN(C) = 1 THEN PRINT "WILL NOT RUN FROM SELECTION LIST.": GOTO 1330
1320 PRINT "WILL RUN FROM SELECTION LIST."
1330 PRINT : PRINT " IF CORRECT, ANY OTHER KEY WILL REVERSE STATUS ? ";: POKE -16368,0: GET A$: IF A$ = CHR$(13) THEN 1370
1340 CG = 1
1350 IF SN(C) = 1 THEN SN(C) = 2: GOTO 1370
1360 SN(C) = 1
1370 PRINT : NEXT
1375 IF ED = 1 THEN 1390
1380 INVERSE : PRINT : PRINT "THATS ALL - HIT ";: NORMAL : POKE -16368,0: INPUT "";A$
1390 IF CG = 0 THEN 260
1400 GOTO 870
1410 IF CG = 0 THEN 260
1420 IF X = 0 THEN 300
1430 HOME : PRINT "HARD COPY VIA PARALLEL CARD IN SLOT #1": PRINT
1440 INPUT "TYPE ANY COMMENTS FOR TOP LINE OF PAGE ? ";CO$
1450 VTAB 3: CALL -958: PRINT "TURN ON PRINTER AND SET TO TOP OF PAGE THEN HIT ";: INPUT "";A$
1460 PRINT "PR#1"
1470 PRINT "80N"
1480 LC = 0
1490 PRINT CO$: PRINT " ":LC = LC +2
1500 FOR C = 1 TO X
1510 IF LC >55 THEN PRINT CHR$(12):LC = 0
1520 PRINT T$(C);" ";FT$(C);
1530 POKE 36,39: PRINT LEFT$(DE$(C),40):LC = LC +1
1540 IF LEN(DE$(C)) >40 THEN POKE 36,39: PRINT MID$ (DE$(C),41,40):LC = LC +1
1550 IF LEN(DE$(C)) >80 THEN POKE 36,39: PRINT MID$ (DE$(C),81,40):LC = LC +1
1560 IF LEN(DE$(C)) >120 THEN POKE 36,39: PRINT MID$ (DE$(C),121,40):LC = LC +1
1570 IF LEN(DE$(C)) >160 THEN POKE 36,39: PRINT MID$ (DE$(C),161,40):LC = LC +1
1580 IF LEN(DE$(C)) >200 THEN POKE 36,39: PRINT MID$ (DE$(C),201,40):LC = LC +1
1590 NEXT
1600 PRINT "PR#0"
1610 PRINT "40N"
1620 HOME : PRINT : PRINT "IF MORE, INSERT NEW DISK AND HIT RETURN.": PRINT : PRINT "-OR- HIT ANY OTHER KEY TO RETURN TO MENU";: POKE -16368,0: GET A$: IF A$ = CHR$(13) THEN 1640
1630 PRINT : GOTO 180
1640 PRINT : GOSUB 320: GOTO 1420
1650 HIMEM: 38400
1660 PR# 6
1670 DATA 56,72,132,251,160,0,201,32,176,2,105,192,201,96,176,2,105,128,201,128,176,2,105,64,145,252,230
1680 DATA 252,208,2,230,253,104,164,251,96,0,0,0,0,169,160,96,104,168,104,166,223,154,72,152,72,96,72,138,72,152,72,169,0,133,254
1690 DATA 169,138,133,255,162,150,160,0,177,254,42,24,106,145,254,230,254,208,6,230,255,228,255,240,3,76,70,3,104,168,104,170,104,96

Text found in RIC_Programs_58.dsk/LINE INPUT.bas:

1 HOME : PRINT "THIS PROGRAM CREATES A TEXT FILE WHICH ADDS A SUBROUTINE TO PROGRAMS TO ALLOW ANY CHARACTERS (INCLUDING PUNCTUATION MARKS) TO BE INPUT FROM APPLESOFT.": PRINT : PRINT " THIS IS AN IMPROVED VERSION OF THE"
2 PRINT "ROUTINES BY JOHN CROSSLEY OF APPLE AND ALLOWS STRING COMPARISON TO WORK COR- RECTLY.": PRINT " TO USE 'IN$' MUST BE THE FIRST VARIABLE DECLARED. USE 'CALL 768: IN$=MID$(IN$,1) INSTEAD OF 'INPUT' STATEMENT."
3 PRINT : PRINT : PRINT "PRESS RETURN TO CREATE": INPUT "PRESS Q TO QUIT ";A$: IF A$ = "Q" THEN PRINT : PRINT CHR$(4);"RUN HELLO"
4 D$ = CHR$(4)
5 PRINT D$;"OPEN LINE INPUT"
6 PRINT D$;"WRITE LINE INPUT"
7 LIST 10,14
8 PRINT D$;"CLOSE"
9 END
10 IN$ = "X"
11 FOR J = 768 TO 799: READ I: POKE J,I: NEXT
12 DATA 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,169,128,93,0,2,157,0,2,202,16,245,96
13 REM CALL 768:IN$=MID$(IN$,1) ** USE THIS FOR INPUT **

Text found in RIC_Programs_58.dsk/LIT@.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 48 8A 48 38 A5 73 E9 30 48 A5 74 E9 03 20 D1 02 H.H8%si0 H%ti. Q.
$000010 8E F7 02 8D F8 02 68 20 D1 02 8E F9 02 8D FA 02 .w..x.h Q..y..z.
$000020 A2 00 BD EB 02 20 ED FD E8 E0 11 D0 F5 68 AA 68 ".=k. m} h`.Puh*h
$000030 60 8D EA 02 4A 4A 4A 4A 20 E1 02 AA AD EA 02 29 `.j.JJJJ a.*-j.)
$000040 0F C9 0A 90 02 69 06 69 B0 60 00 84 C2 D2 D5 CE .I...i.i 0`..BRUN
$000050 A0 CC C9 D4 AC C1 A4 B0 B0 B0 B0 8D 28 28 28 28 LIT,A$0 000.((((
** END **

Text found in RIC_Programs_58.dsk/LOGO.bas:

50 FLAG = 0
51 FT$(1) = ""
52 FT$(2) = "]SMALL STANDARD"
53 FT$(3) = "]WESTERN"
54 UL$ = "@"
55 ONERR GOTO 450
56 GOTO 170
90 T$ = "":LC = 0: FOR I = 1 TO LEN(A$):J = ASC( MID$ (A$,I,1)): IF J < >UL THEN T$ = T$ + CHR$(J +LC *(J >63 AND J <96)): NEXT :A$ = T$: GOTO 100
95 LC = LC +32 -64 *(LC = 32): NEXT :A$ = T$
99 REM PRINT ROUTINE:
100 POKE 232,L1(FT): POKE 233,L2(FT): IF LEN(FT3$) THEN PRINT D$;"BLOAD ";FT3$;",A";LOC(3):FT$(3) = FT3$:FT3$ = "": RETURN
105 X = 7 *HT -6:Y = 8 *VT -8: ROT= RT *16: IF CL <8 THEN BG = CL: HCOLOR= BG:CL = 8: HPLOT 0,0: CALL 62454:VT = 1:HT = 1:FT = 1: RETURN
110 IF CT THEN X = 0:YT = 176:XR = 0: HCOLOR= BG: FOR Z = 1 TO LEN(A$): DRAW ASC( MID$ (A$,Z,1)) -T1 AT X,YT: DRAW 99: CALL 62923:XR = XR + PEEK(224): NEXT :X = (280 -XR)/2
120 HCOLOR= HC: DRAW 100 AT X,Y: FOR Z = 1 TO LEN(A$): DRAW ASC( MID$ (A$,Z,1)) -T1: XDRAW 99: NEXT : CALL 62923:XO = X:X = PEEK(224) + PEEK(225) *TF:CT = 0:RT = 0:HT = (X +6)/7: IF NOT (IN) THEN RETURN
130 POKE 232,0: POKE 233,64:XR = X:YB = 8 * PEEK(LO(FT) +1):SC = XR -XO: IF SC <256 THEN SCALE= SC: ROT= 0: FOR I = Y -(Y >0) TO Y +YB: XDRAW 3 AT XO,I: NEXT : GOTO 150
140 SCALE= YB: ROT= 16: FOR I = X TO XR: XDRAW 3 AT I,Y: NEXT
150 ROT= 0: SCALE= 1:IN = 0: RETURN
170 SCALE= 1: ROT= 0:CL = 8: HCOLOR= 3:TF = 256:T1 = 31:TXT = 49235:FULL = 49234:HIRES = 49232:UL = ASC(UL$):G$ = CHR$(7):D$ = CHR$(13) + CHR$(4)
180 J = 768: FOR I = 1 TO 3:LOC(I) = PEEK(J) + PEEK(J +1) *256:L1(I) = PEEK(J):L2(I) = PEEK(J +1):J = J +2: NEXT : REM STORE.FONT.LOCATIONS
190 REM FONT LOAD ROUTINE:
200 IF FLAG >0 THEN 500
220 PRINT D$;"BLOAD CURSORS,A16384":LOC(1) = 16640: FOR I = 1 TO 3
230 IF LEN(FT$(I)) THEN PRINT D$;"BLOAD ";FT$(I);",A";LOC(I)
240 LOC(I +1) = LOC(I) + PEEK(43616) + PEEK(43617) *256: NEXT
250 J = 768: FOR I = 1 TO 3:X = LOC(I): POKE J,X - INT(X/256) *256:L1(I) = PEEK(J): POKE J +1, INT(X/256):L2(I) = PEEK(J +1):J = J +2: NEXT : GOTO 500
399 REM HT CALCULATOR:
400 TEXT : VTAB 24: PRINT :Q$ = CHR$(34): PRINT "CENTER FINDER": PRINT "-------------": PRINT "FONT: ";FT: PRINT "COPY: "Q$A$Q$:X = 0:YT = 176:XR = 0: HCOLOR= BG: PRINT : POKE 232, PEEK(766 +2 *FT): POKE 233, PEEK(767 +2 *FT)
405 IF NOT LEN(A$) OR (FT <1 OR FT >3) THEN PRINT CHR$(7);"SPECIFY FONT NUMBER (FT=#)": PRINT "AND COPY (A$="Q$"WORDS"Q$"),": PRINT "AND GOTO 400 AGAIN.": VTAB 11: PRINT "FOR EXAMPLE, TYPE:": PRINT : PRINT "FT=1:A$="Q$"TITLE"Q$":GOTO 400": END
410 FOR I = 1 TO LEN(A$): DRAW ASC( MID$ (A$,I,1)) -31 AT X,YT: DRAW 99: CALL 62923:XR = XR + PEEK(224): NEXT :X = (280 -XR)/2:HT = (X +6)/7: PRINT "FOR HTAB, LET HT="; INT(HT *10)/10: IF HT <1 THEN FLASH : VTAB 7: PRINT CHR$(7)" COPY TOO LONG ";: CALL -958
420 NORMAL : END
450 LINE = PEEK(218) + PEEK(219) *256:TYPE = PEEK(222): HOME : POKE TXT,0: VTAB 21: IF TYPE <255 THEN PRINT CHR$(7);"CODE-";TYPE;" ERROR IN LINE #";LINE: END
499 REM MAIN PROGRAM:
500 HC = 3:HT = 1:VT = 1:FT = 1:CT = 0:IN = 0:CL = 8:RT = 0:FT3$ = "": HGR : POKE FULL,0: REM STARTING DEFAULTS
514 HT = 14:VT = 4:FT = 3:A$ = "P": GOSUB 100
516 HT = 16:VT = 6:FT = 3:A$ = "M": GOSUB 100
518 HT = 18:VT = 8:FT = 3:A$ = "Enterprises": GOSUB 100
519 HT = 3:VT = 19:FT = 2:A$ = "Copying or Reproduction of any part of": GOSUB 100
520 CT = 1:VT = 20:FT = 2:A$ = "The Disk Management Program is Prohibited": GOSUB 100
530 HT = 3:VT = 21:FT = 2:A$ = "Copyright (c) 1983. P.M. Enterprises All": GOSUB 100
535 VT = 22:HT = 3:FT = 2:A$ = "Rights Reserved.": GOSUB 100
600 FOR CT = 1 TO 8000: NEXT CT: TEXT : HOME : PRINT CHR$(4);"RUN HELLO"

Text found in RIC_Programs_58.dsk/REF@.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 48 8A 48 38 A5 73 E9 30 48 A5 74 E9 03 20 D1 02 H.H8%si0 H%ti. Q.
$000010 8E F7 02 8D F8 02 68 20 D1 02 8E F9 02 8D FA 02 .w..x.h Q..y..z.
$000020 A2 00 BD EB 02 20 ED FD E8 E0 11 D0 F5 68 AA 68 ".=k. m} h`.Puh*h
$000030 60 8D EA 02 4A 4A 4A 4A 20 E1 02 AA AD EA 02 29 `.j.JJJJ a.*-j.)
$000040 0F C9 0A 90 02 69 06 69 B0 60 00 84 C2 D2 D5 CE .I...i.i 0`..BRUN
$000050 A0 D2 C5 C6 AC C1 A4 B0 B0 B0 B0 8D 28 28 28 28 REF,A$0 000.((((
** END **

Text found in RIC_Programs_58.dsk/VAR@.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 48 8A 48 38 A5 73 E9 30 48 A5 74 E9 03 20 D1 02 H.H8%si0 H%ti. Q.
$000010 8E F7 02 8D F8 02 68 20 D1 02 8E F9 02 8D FA 02 .w..x.h Q..y..z.
$000020 A2 00 BD EB 02 20 ED FD E8 E0 11 D0 F5 68 AA 68 ".=k. m} h`.Puh*h
$000030 60 8D EA 02 4A 4A 4A 4A 20 E1 02 AA AD EA 02 29 `.j.JJJJ a.*-j.)
$000040 0F C9 0A 90 02 69 06 69 B0 60 00 84 C2 D2 D5 CE .I...i.i 0`..BRUN
$000050 A0 D6 C1 D2 AC C1 A4 B0 B0 B0 B0 8D 28 28 28 28 VAR,A$0 000.((((
** END **