home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / big100.ba < prev    next >
Text File  |  2006-10-19  |  6KB  |  83 lines
  1. 0 'BIG100.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLEAR 4400:DIM G$(41), L(40,8), J$(15), M(15), TF$(10), RW(20), RX(20):BE=88:GOSUB 61
  4. 3 CLS:PRINT"ONE MOMENT PLEASE....":FOR X=1 TO 41:READ G$(X):IF BE<>88 THEN GOSUB 38
  5. 4 NEXT X:FOR X=1 TO 36:FOR Y=1 TO 8:READ L(X,Y):NEXT Y:NEXT X:RESTORE:GOSUB 27:GOTO 5
  6. 5 CLS:PRINT"YOU MAY INPUT UP TO 15 LINES WITH UP TO"NC "LETTERS EACH":PRINT:PRINT "TO BEGIN, ";:INPUT"PRESS <ENTER>";PE
  7. 6 CLS:FOR J=1 TO 15
  8. 7 PRINT "LINE NO."J;:INPUT"(S)TANDARD OR (B)IGPRINT";TF$(J):GOSUB 60:IF TF$(J)="B"THEN PRINT"("NC" CHRS MAX.)"
  9. 8 IF TF$(J)<>"B" AND TF$(J)<>"S"THENPRINT"'B' OR 'S', PLEASE":SOUND 1000,5:GOTO 7
  10. 9 LINE INPUT J$(J):IF TF$(J)="B" AND LEN(J$(J))> NCTHENSOUND 1100,3:PRINT"LINE TOO LONG":PRINT"Corrected":GOTO 7
  11. 10 GOTO 11:LL=LEN(J$(J)):VB=NC-LL:VC=INT(VB/2)+1:J$(J)=STRING$(VC,32)+J$(J)
  12. 11 NEXT J:GOTO 13
  13. 12 J=J-1:GOTO 13
  14. 13 CLS:PRINT"YOUR MESSAGE:":FOR K=1 TO J:PRINT TF$(K)+">"+J$(K)+"/";:NEXT:PRINT:PRINT"PRINT THIS? (Y/N)";
  15. 14 YN$=INKEY$:IF YN$=""THEN14 ELSE IF YN$<>"Y"THEN61
  16. 15 CLS:PRINT:LINE INPUT "PREPARE PRINTER AND HIT <ENTER> TO PRINT";PE$:FOR K=1 TO J:IF TF$(K)="S"THENGOSUB 32:GOTO 24
  17. 16 FOR Y=1 TO 8:LL=LEN(J$(K)):TL=LEN(J$(K))*13:IF NC=10THENTL=INT((128-TL)/2) ELSE IF NC=6THENTL=INT((78-TL)/2)
  18. 17 IF TL<0THENTL=0
  19. 18 LPRINT STRING$(TL,32);:FOR V=1 TO LEN(J$(K)):IF MID$(J$(K),V,1)="0"THENMID$(J$(K),V,1)="O"
  20. 19 Z$(V)=MID$(J$(K),V,1):IF V>LEN(J$(K))THEN23
  21. 20 M(V)=ASC(Z$(V))-64:IF M(V)=-32THENM(V)=27:GOTO 22
  22. 21 IF M(V)<-6 AND M(V)>-16THENM(V)=M(V)+43
  23. 22 LPRINT G$(L(M(V),Y))+"  ";:NEXT V:LPRINT:NEXT Y
  24. 23 LPRINT:LPRINT
  25. 24 NEXT K:PRINT:PRINT "ANOTHER COPY? (Y/N)"
  26. 25 CP$=INKEY$:IF CP$=""THEN25 ELSE IF CP$="Y"THEN15
  27. 26 GOTO 61
  28. 27 GOTO 28
  29. 28 CLS:PRINT"HOW MANY CHARACTERS PER LINE?"
  30. 29 PRINT"6 CHARACTERS (STANDARD 10 CPI)":PRINT"10 CHARACTERS (NEEDS CONDENSED":PRINT"FONT OR 132-COL PRINTER)":PRINT:INPUT"YOUR CHOICE (6 OR 10)";NC
  31. 30 IF NC<>6 AND NC<>10THEN27
  32. 31 RETURN
  33. 32 IF TF$(K-1)="S"THENLPRINT
  34. 33 IF TF$(K-1)="B"THENFOR U=1 TO 2:LPRINT:NEXT U
  35. 34 LL=LEN(J$(K)):TL=INT((76-LL)/2):FOR E=1 TO NP-1:LPRINT CHR$(RX(E));:NEXT E:LPRINT STRING$(TL,32)+J$(K)
  36. 35 IF TF$(K+1)="S"THENLPRINT
  37. 36 IF TF$(K+1)="B"THENFOR D=1 TO CM-1:LPRINT CHR$(RW(D));:NEXT D:FOR U=1 TO 3:LPRINT:NEXT U
  38. 37 RETURN
  39. 38 FOR U=1 TO LEN(G$(X)):IF MID$(G$(X),U,1)="X"THENMID$(G$(X),U,1)=CHR$(BE)
  40. 39 NEXT U:RETURN
  41. 40 CLS:PRINT"YOU MAY ENTER UP TO 20 DIRECT PRINTER   COMMANDS. THEY SHOULD   BE IN THE FORM  OF ASCII CONTROL OR ESCAPE CODES. TO    END THE STRING OF COMMANDS, HIT <ENTER> WITH NO OTHER INPUT. DO THIS? (Y/N)"
  42. 41 PC$=INKEY$:IF PC$=""THEN 41
  43. 42 IF PC$<>"Y" AND PC$<>"y"THEN61
  44. 43 CLS:CM=1
  45. 44 PRINT"COMMAND NO. "+STR$(CM)+":";:INPUT RW(CM):IF RW(CM)=0THEN46
  46. 45 CM=CM+1:GOTO 44
  47. 46 CLS:PRINT"HERE IS THE STRING OF COMMANDS YOU HAVE JUST ENTERED:":FOR D=1 TO CM-1:PRINT"CHR$("+STR$(RW(D))+") ";:NEXT D
  48. 47 PRINT:INPUT "IS THIS CORRECT (Y/N)";CR$:IF CR$<>"Y"THENPRINT"corrected": GOTO 43
  49. 48 FOR D=1 TO CM-1:LPRINT CHR$(RW(D));:NEXT D:LPRINT
  50. 49 CLS:PRINT"INPUT THE COMMANDS THAT RESTORE NORMAL  PRINTING. HIT <ENTER> ALONE WHEN DONE"
  51. 50 NP=1
  52. 51 PRINT"COMMAND NO."NP":";:INPUT RX(NP):IF RX(NP)=0THEN53
  53. 52 NP=NP+1:GOTO 51
  54. 53 CLS:PRINT"THESE ARE THE COMMANDS TO RESTORE NORMALPRINTING:":FOR E=1 TO NP-1:PRINT"CHR$("RX(E)")";:NEXT E
  55. 54 PRINT:INPUT "IS THIS CORRECT (Y/N)";CR$:IF CR$="Y"THEN61
  56. 55 PRINT"corrected":GOTO 50
  57. 56 CLS:PRINT"THE DEFAULT CHARACTER FOR LETTER BLOCKS IS 'X', WHICH IS ASCII (88). DO YOU WISHTO SUBSTITUTE ANOTHER CHARACTER? (Y/N)?"
  58. 57 LINE INPUT YD$:IF YD$<>"Y"THENBE=88:GOTO 59
  59. 58 INPUT"ENTER THE ASCII CODE FOR THE CHARACTER  YOU WANT";BE
  60. 59 GOTO 61
  61. 60 IF TF$(J)=""THEN12 ELSE RETURN
  62. 61 CLS:PRINT"               BIGPRINT":PRINT"
  63. 62 PRINT"      A. SET PRINTER COMMANDS":PRINT"      B. ENTER 'BIGPRINT' MESSAGE":PRINT"      C. SET BLOCK CHARACTER"
  64. 63 CH$=INKEY$:IF CH$=""THEN63
  65. 64 ON INSTR("AaBbCc",CH$) GOTO 65,65,3,3,56,56:GOTO 61
  66. 65 GOSUB 40:GOTO 61:IF K/6<> INT(K/6)THENRETURN ELSE PRINT:PRINT "HIT ANY KEY TO CONTINUE";
  67. 66 DATA "XXX     XXX",XXXXXXXXXXX,"XXXXXXX    "," XXXXXXXXX ","XXXXXXXXXX "
  68. 67 DATA XXX   XXXXX,"    XXX    ",XXX  XX XXX,"XXX    XXX ","XXX  XXX   "
  69. 68 T1$=INKEY$:IF T1$=""THEN68
  70. 69 DATA "XXX   XXX  ",XXX    XXXX,XXXX   XXXX,XXX XXX XXX,XXX  X  XXX
  71. 70 DATA XXXX    XXX,XXXXX   XXX,XXX    XXXX,XXX   XXXXX," XXXXXXX  X":RETURN
  72. 71 DATA " XXX   XXX ","  XXX XXX  ","   XXXXX   ","     X     ","  XXXXXXX  "
  73. 72 DATA "     XXXXXX ", "  XXXX     ", "   XXX     ", " XXXX      ", "    XXXX   "
  74. 73 DATA "  XXXXX    ","    XXXXXX ","    XXXXXXX","        XXX","XXX        "," XXXXXXXXXX"
  75. 74 DATA  "           ", "   XXXX    ", "XXXXXXXXX  ","  XXXXX    ", " XXXXXXXXXX":DATA 4,2,1,1,2,2,1,1:DATA 5,2,1,5,2,1,2,5
  76. 75 DATA 4,2,35,35,35,35,2,4:DATA 5,2,1,1,1,1,2,5:DATA 2,2,35,3,3,35,2,2:DATA 2,2,35,3,3,35,35,35:DATA 36,2,35,6,6,1,2,36
  77. 76 DATA 1,1,1,2,2,1,1,1:DATA 7,7,7,7,7,7,7,7:DATA 34,34,34,34,1,1,2,4:DATA 9,11,10,3,3,10,11,12:DATA 35,35,35,35,35,35,2,2
  78. 77 DATA 1,13,2,14,15,1,1,1:DATA 1,16,17,14,19,18,1,1:DATA 4,2,1,1,1,1,2,4:DATA 5,2,1,2,5,35,35,35:DATA 4,2,1,1,8,1,5,20
  79. 78 DATA 5,2,1,5,2,1,1,1:DATA 36,2,35,5,36,34,2,5:DATA 2,2,7,7,7,7,7,7:DATA 1,1,1,1,1,1,2,4:DATA 1,1,1,21,22,23,7,24
  80. 79 DATA 1,1,1,15,14,2,1,1:DATA 1,1,21,23,25,21,1,1:DATA 1,21,22,23,7,7,7,7:DATA 2,2,32,30,27,29,2,2:DATA 37,37,37,37,37,37,37,37
  81. 80 DATA 38,40,7,7,7,7,7,7:DATA 5,2,34,4,39,35,2,2:DATA 5,2,34,32,33,34,2,5:DATA 1,1,1,2,2,34,34,34:DATA 2,2,35,5,2,34,2,5
  82. 81 DATA 35,35,35,5,2,1,2,4:DATA 2,2,34,34,34,34,34,34:DATA 4,2,1,4,2,1,2,4:DATA 4,2,1,2,41,34,2,4
  83.