0 'SUPER.BA - AUTHOR UNKNOWN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR 50:DEFDBLA-Z:CLS:NC$=CHR$(63)+CHR$(6)+CHR$(91)+CHR$(79)+CHR$(102)+CHR$(109)+CHR$(125)+CHR$(7)+CHR$(127)+CHR$(111)+CHR$(121)+CHR$(124)+CHR$(57)+CHR$(94)+CHR$(121)+CHR$(113):P2=0:P3=0:PRINT"Type chars, ESC, nums, ESC, chars, etc.":PRINT 3 X$=INPUT$(1):IFX$<>CHR$(27)THENPRINTCHR$(27);"P";X$;:GOTO3 4 PRINTX$;"Q";:P2=POS(0)*6:TP=P2-6:P3=CSRLIN*8-3 5 X$=INPUT$(1):IFX$=CHR$(27)THEN3ELSEIFX$<"0"ORX$>"9"THEN5 6 N1=VAL(X$):GOSUB8:IFP2-TP>6THENTP=TP+6:PRINTCHR$(27);"C"; 7 GOTO5 8 IFN1=0THENP1=0:GOTO11 9 RN=INT(LOG(N1)/LOG(10))+1:R1=N1/10^RN:IFP2+RN*4>239THENP2=239 10 GOSUB19:LINE(P2,P3)-(P2+RN*4,P3+6),0,BF:FORLO=1TORN:P1=R1*10:R1=P1-INT(P1):GOSUB11:NEXTLO:RETURN 11 DG=ASC(MID$(NC$,P1+1)):GOSUB19:IF(DGAND1)THENLINE(P2+1,P3+1)-(P2+3,P3+1),1 12 IF(DGAND2)THENLINE(P2+3,P3+1)-(P2+3,P3+3),1 13 IF(DGAND4)THENLINE(P2+3,P3+3)-(P2+3,P3+5),1 14 IF(DGAND8)THENLINE(P2+3,P3+5)-(P2+1,P3+5),1 15 IF(DGAND16)THENLINE(P2+1,P3+5)-(P2+1,P3+3),1 16 IF(DGAND32)THENLINE(P2+1,P3+3)-(P2+1,P3+1),1 17 IF(DGAND64)THENPSET(P2+2,P3+3) 18 P2=P2+4 19 IFP2<0THENP2=0ELSEIFP3<0THENP3=0 20 IFP2>236THENP2=0:P3=P3+6 21 IFP3>57THENP2=0:P3=0 22 RETURN