0 'Club 100 Library, Modem 415-939-1246
1 'USEFUL.BA Author Unknown, modified by Robert Benson
10 CLS:PRINT@133,"Initializing...":GOTO15
11 X$=X$+CHR$(PEEK(I)):RETURN
12 J=16250:FORI=0TO16000STEP250
13 J=J-250:SOUNDI,1:SOUNDJ,1:NEXT:RETURN
14 PRINTCHR$(PEEK(I));:RETURN
15 DIMQ(31):D$=CHR$(45)+CHR$(46)+CHR$(45):P$=CHR$(27)+"p":Q$=CHR$(27)+"q":Z=62406-PEEK(64193)*256+PEEK(64192)
16 FORI=1TO27:READX:X$=X$+CHR$(X):NEXT
17 FORI=23309TO23321:GOSUB11:NEXT
18 X$=X$+SPACE$(2)
19 FORI=63845TO63849:GOSUB11:NEXT
20 X$=X$+SPACE$(5)
21 FORI=63856TO63859:GOSUB11:NEXT
22 X$=X$+SPACE$(6)
23 FORI=63867TO63872:GOSUB11:NEXT
24 X$=X$+SPACE$(4)
25 FORI=63878TO63883:GOSUB11:NEXT
26 X$=X$+SPACE$(4)
27 FORI=63889TO63894:GOSUB11:NEXT
28 FORI=63845TO63849:X2$=X2$+CHR$(PEEK(I)):NEXT
29 FORI=1TO6:READQ(I):NEXT
30 FORI=1TO6:PRINT@Q(I),STRING$(INT(RND(0)*48)+1,239)
31 FORJ=1TO69:NEXTJ,I:CLS
32 FORI=1TO125:NEXT:PRINT@0,X$
33 FORI=91TO271STEP10:PRINT@I,D$:NEXT
34 PRINT@280,"";:FORI=23332TO23340:GOSUB14:NEXT
35 PRINT@301,Z;:FORI=32665TO32674:GOSUB14:NEXT
36 PRINT@40,P$" ";:PRINTX2$;:PRINTSPACE$(4):PRINTQ$
37 FORI=1TO10:READY$(I):NEXT
38 FORI=1TO9:PRINT@22,Y$(I)
39 FORK=1TO450:NEXT:NEXT:X$=""
40 FORI=1TO10:READX:X$=X$+CHR$(X):NEXT
41 FORI=99TO279STEP40:PRINT@I,X$:NEXT:GOSUB12
42 FORI=88TO248STEP40:PRINT@I,X$:NEXT:GOSUB12
43 FORI=110TO290STEP40:PRINT@I,X$;:NEXT:GOSUB12:BEEP:MENU
44 DATA 74,97,110,32,48,49,44,49,57,48,48,32,83,117,110,32,48,48,58,48,48,58,48,49,32,32,32
45 DATA 220,0,131,240,60,151,02,03,04,05,06,07,08,09,10,11,65,112,114,105,108,32,70,111,111,108