home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / super.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  24 lines
  1. 0 'SUPER.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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
  4. 3 X$=INPUT$(1):IFX$<>CHR$(27)THENPRINTCHR$(27);"P";X$;:GOTO3
  5. 4 PRINTX$;"Q";:P2=POS(0)*6:TP=P2-6:P3=CSRLIN*8-3
  6. 5 X$=INPUT$(1):IFX$=CHR$(27)THEN3ELSEIFX$<"0"ORX$>"9"THEN5
  7. 6 N1=VAL(X$):GOSUB8:IFP2-TP>6THENTP=TP+6:PRINTCHR$(27);"C";
  8. 7 GOTO5
  9. 8 IFN1=0THENP1=0:GOTO11
  10. 9 RN=INT(LOG(N1)/LOG(10))+1:R1=N1/10^RN:IFP2+RN*4>239THENP2=239
  11. 10 GOSUB19:LINE(P2,P3)-(P2+RN*4,P3+6),0,BF:FORLO=1TORN:P1=R1*10:R1=P1-INT(P1):GOSUB11:NEXTLO:RETURN
  12. 11 DG=ASC(MID$(NC$,P1+1)):GOSUB19:IF(DGAND1)THENLINE(P2+1,P3+1)-(P2+3,P3+1),1
  13. 12 IF(DGAND2)THENLINE(P2+3,P3+1)-(P2+3,P3+3),1
  14. 13 IF(DGAND4)THENLINE(P2+3,P3+3)-(P2+3,P3+5),1
  15. 14 IF(DGAND8)THENLINE(P2+3,P3+5)-(P2+1,P3+5),1
  16. 15 IF(DGAND16)THENLINE(P2+1,P3+5)-(P2+1,P3+3),1
  17. 16 IF(DGAND32)THENLINE(P2+1,P3+3)-(P2+1,P3+1),1
  18. 17 IF(DGAND64)THENPSET(P2+2,P3+3)
  19. 18 P2=P2+4
  20. 19 IFP2<0THENP2=0ELSEIFP3<0THENP3=0
  21. 20 IFP2>236THENP2=0:P3=P3+6
  22. 21 IFP3>57THENP2=0:P3=0
  23. 22 RETURN
  24.