Notes

Disk info for Volume_106_Diversi-Dial.dsk:

File Name: riag_005_Volume_106_-_Diversi-Dial/Volume_106_Diversi-Dial.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 99072
Used Space (bytes): 44288
Physical Size (KB): 140
Free Space (KB): 96
Used Space (KB): 43
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 387
Used Sectors: 173
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Volume_106_Diversi-Dial.dsk:

riag_005_Volume_106_-_Diversi-Dial/Volume_106_Diversi-Dial.dsk DISK VOLUME #254
A 006 HELLO
T 031 DIALINST
B 072 DIAL
DOS 3.3 format; 99,072 bytes free; 44,288 bytes used.

Text found in Volume_106_Diversi-Dial.dsk/HELLO.bas:

0 IF PEEK(55) <190 THEN HOME : PRINT "REQUIRES 64K": END
5 P = 0
10 HOME : PRINT "DIVERSI-DIAL(TM)": PRINT "C1984 DSR, INC.": PRINT "BY BILL BASHAM": PRINT : PRINT
20 PRINT "1 - RUN DIVERSI-DIAL"
30 PRINT : PRINT "2 - SEND PROGRAM TO CASSETTE"
40 PRINT : PRINT "3 - LIST INSTRUCTIONS TO SCREEN"
50 PRINT : PRINT "4 - PRINT INSTRUCTIONS (SLOT 1)"
55 PRINT : PRINT "5 - ACTIVATE 80-COL CARD"
60 PRINT : PRINT "ENTER SELECTION (1-4) ";
70 GET A$: PRINT A$
80 I = VAL(A$)
90 IF I <1 OR I >5 THEN GOTO 10
95 ON I GOTO 100,200,300,400,500
100 IF P = 0 THEN GOTO 110
101 PRINT : PRINT "CAN'T RUN WITH 80-COL ACTIVE": PRINT "PRESS RESET AND 'RUN'"
102 END
110 PRINT : PRINT "IF YOU HAVE AN APPLE II WITHOUT": PRINT "LOWERCASE, HIT QUICKLY NOW"
150 PRINT CHR$(4);"BRUN DIAL"
200 PRINT CHR$(4);"BLOAD DIAL"
210 HOME : PRINT "NOW ENTER THE FOLLOWING:": PRINT : PRINT "2000.6600W"
220 PRINT : PRINT "THEN START THE CASSETTE AND PRESS RETURN"
230 PRINT : PRINT : PRINT "TO LOAD FROM CASSETTE ENTER:": PRINT : PRINT "CALL-151": PRINT "2000.6600R 2000G"
290 CALL -151
300 REM
350 PRINT CHR$(4);"TLIST DIALINST"
360 PRINT "PRESS "
370 GET A$: PRINT : GOTO 10
400 IF P = 0 THEN GOTO 405
401 PRINT : PRINT "CAN'T PRINT WITH 80-COL ACTIVE": PRINT "PRESS RESET AND 'RUN'"
402 END
405 PRINT : PRINT "BE SURE PRINTER IS ONLINE": PRINT
410 PRINT CHR$(4);"PR#1"
420 PRINT CHR$(4);"TLIST DIALINST"
430 PRINT CHR$(4);"PR#0"
440 GOTO 10
500 P = 3
510 PRINT : PRINT CHR$(4);"PR#3"
520 GOTO 10