10   ! BASIC PROGRAM TO PRINT POSTERS, MAR.7,79
20   ! WRITTEN BY ALAN R. MILLER
30   ! NEW MEXICO TECH, SOCORRO 87801
50   !
60   ! FOR XITAN VERSION DELETE LINE 110
70   !   CHANGE LPRINT TO PRINT #LU,
80   !   CHANGE LINE INPUT TO INPUT LINE #0,
90   !
92   MAP1 SI$(9),S,14           !ARRAY FOR LARGE LETTER POSTER
94   DIM AL$(7,63)              !ARRAY FOR LETTER DATA
96   MAP1 SM$(15),S,132         !ARRAY FOR SMALL LETTER MESSAGE
98   MAP1 IZ(9),F
100  MAP1 IY(15),F
102  MAP1 E1$,S,40              !ERROR MESSAGE STRING
120  LU=2 ! LOGICAL-UNIT FOR LIST,XITAN VERSION
130  !OPTION #LU,"W",132'MAXIMUM NUMBER OF LINES
140  !
145  OPEN #2,"POSTER.DAT",OUTPUT
150  CR$=CHR$(13)
160  MC=14                      !MAXIMUM CHARACTERS PER LINE
170  !MC=8:REM FOR MARROW PAPER
180  MP=MC*9+5:ML=9!MAXIMUM NUMBER OF LINES
190  MS=15                      !MAX NUMBER OF SMALL LINES
200  !
220  !
230  E1$="ERROR:TO MANY CHARACTERS TRY AGAIN"
240  !
250  FOR J=1 TO 59:FOR I=1 TO 7:READ AL$(I,J):NEXT I:NEXT J
270  !
280  INPUT "PAGE LENGHT, IN INCHES ";YP:LP=YP*6
290  INPUT "NUMBER OF COPIES ";NC
300  PRINT "ENTER MESSAGE OF LARGE LETTERS,UP TO";
310  PRINT MC;" LETTERS PER LINE."
320  PRINT "TWO SUCCESSIVE CARRIAGE RETURNS SIGNIFY END."
322  FOR I=1 TO 9:SI$(I)="":IZ(I)=0:NEXT I
324  FOR I=1 TO 15:SM$(I)="":IY(I)=0:NEXT I
330  !
340  I=O
350  I=I+1:IZ(I)=0
360  PRINT "LINE"+STR$(I);":";
370  INPUT LINE SI$(I)          !INPUT A LINE OF LARGE LETTERS
380  LN=LEN(SI$(I))
390  IF LN>MC THEN PRINT E1$:GOTO 360
400  IF LN=MC THEN 460
410  IF LN=0 THEN NL=I-1:GOTO 480
420  N1=MC-LN:N2=INT(N1/2):N3=N1-N2
430  IF N1=1 THEN 450
440  FOR J=1 TO N2:SI$(I)=" "+SI$(I):NEXT J
450  IF N2<>N3 THEN IZ(I)=1!SET HALF-SPACE FLAG
460  IF I<ML THEN 350
470  !
480  PRINT "ENTER SMALL LINES"
490  I=0
500  I=I+1:IY(I)=0
510  PRINT "LINE"+STR$(I);";";
520  INPUT LINE SM$(I)          ! INPUT A LINE OF SMALL LETTERS
530  LN=LEN(SM$(I))
540  IF LN=0 THEN NS=I-1:GOTO 580
550  IF LN>MP-6 THEN PRINT E1$:GOTO 510
560  IF LN<MP THEN SM$(I)=SPACE((MP-LN)/2-4)+SM$(I)
570  IF I<MS THEN 500
580  PRINT #2
590  !
600  ! START A NEW PAGE
610  !
620  FOR K=1 TO NC:LT=6!GET A NEW PAGE
630  GOSUB 1020!PUT * ACROSS TOP
640  !
650  !START A NEW LINE OF MESSAGE
660  !
670  FOR J=1 TO NL
680  LT=LT+9!GO THROUGH EACH LINE
690  LS=LEN(SI$(J)):GOSUB 1060  !2 BLANK LINES
700  !
710  !START ONE OF SEVEN ROWS OF SPOTS
720  !
730  FOR I=1 TO 7
740  IF LS=MC THEN PRINT #2 "** ";ELSE PRINT #2   "**  ";
750  IF IZ(J)<>0 THEN PRINT #2 SPACE$(4);
760  !
770  ! SELECT A NEW CHARACTER IN LINE
780  !
790  SP$="A":GOSUB 1080
800  PRINT #2 CR$;:SP$="W"
810  IF LS=MC THEN ? #2, SPACE$(3);ELSE ? #2, SPACE$(4);
820  IF IZ(J)<>0 THEN PRINT #2 "    ";
830  GOSUB 1080
840  IF LS>=MC THEN 880
850  IF MC-LS<=1 THEN GOTO 870
860  FOR L=LS+2 TO MC:PRINT #2 SPACE$(9);:NEXT L
870  IF IZ(J)<>0 THEN PRINT #2 SPACE$(4);ELSE PRINT #2 SPACE$(8);
880  PRINT #2 "**"
890  NEXT I
900  NEXT J
910  GOSUB 1060
920  IF NS=0 THEN 960
930  FOR J=1 TO NS:PRINT #2, "**  ";:LT=LT+1
940  PRINT #2,SM$(J); TAB (MP-2); "**"
950  NEXT J
960  GOSUB 1020                 !PUT 2 ROWS OF * AT BOTTOM
970  LT=INT(LP*(LT-INT(LT/LP))+.001)
980  IF LT+1-LP<> 0 THEN FOR J=LT+1 TO LP: ?#2 : NEXT J
985 ?#2,CHR$(12)
990  NEXT K
994  INPUT "DO YOU HAVE ANOTHER POSTER YOU WANT TO DO ";C1$
996  IF C1$="Y" OR C1$="YES" THEN 322
1000 GOTO 2440                  !DONE
1010 !
1020 FOR L=1 TO MP:PRINT #2 "*";:NEXT L:PRINT #2
1030 FOR L=1 TO MP:? #2, "*";:NEXT L:? #2
1040 RETURN
1050 !
1060 PRINT #2 "**";SPACE$(MP-4);"**"
1070 PRINT #2 "**";SPACE$(MP-4);"**":RETURN
1080 !
1090 ! SELECT A CHARACTER FOR S SINGLE LINE
1100 !
1110 FOR L=1 TO LS
1120 LL=ASC(MID$(SI$(J),L,1))-31
1130 ! CONVERT NON-PRINTING CHARACTER TO A BLANK
1140 IF LL<1 THEN LL=1
1150 IF LL>64 THEN LL=LL-32     ! MAKE LOWER CASE
1160 AS$=AL$(I,LL)
1170 FOR M=1 TO 7               ! CHECK EACH SPOT
1180 IF MID$(AS$,M,1)=" " THEN PRINT #2 " "; ELSE PRINT #2 SP$;
1190 NEXT M:PRINT #2 "  ";
1200 NEXT L
1210 RETURN
1220 !
1230 ! CHARACTER DATA
1240 !
1250 DATA "       ","       ","       ","       ","       "
1260 DATA "       ","       "
1270 DATA "   !   ","   !   ","   !   ","   !   ","   !   "
1280 DATA "       ","   !   "
1290 DATA "       "," XX XX "," XX XX "," XX XX ","       "
1300 DATA "       ","       "
1310 DATA "  # #  ","  # #  ",#######,"  # #  ",#######
1320 DATA "  # #  ","  # #  "
1330 DATA " $$$$$$","$$ $   ","$$ $   "," $$$$$ ","   $ $$"
1340 DATA "   $ $$","$$$$$$ "
1350 DATA " %%   %"," %%  % ","    %  ","   %   ","  %    "
1360 DATA " %  %% ","%   %% "
1370 DATA "  &    "," & &   ","  &    "," & &   ","&   & &"
1380 DATA "&    & "," &&&& &"
1390 DATA "       ","  ''   ","  ''   ","  '    ","       "
1400 DATA "       ","       "
1410 DATA "      (","     ( ","    (  ","    (  ","    (  "
1420 DATA "     ( ","      ("
1430 DATA ")      "," )     ","  )    ","  )    ","  )    "
1440 DATA " )     ",")      ",
1450 DATA "*  *  *"," * * * ","  ***  ","*******","  ***  "
1460 DATA " * * * ","*  *  *"
1470 DATA "   +   ","   +   ","   +   ","+++++++","   +   "
1480 DATA "   +   ","   +   "
1490 DATA "       ","       ","       ","       ","       "
1500 DATA "   ,   ","   ,   "
1510 DATA "       ","       ","       ","  ___  ","       "
1520 DATA "       ","       "
1530 DATA "       ","       ","       ","       ","       "
1540 DATA "  . .  ","  . .  "
1550 DATA "      /","     / ","    /  ","   /   ","  /    "
1560 DATA " /     ","/      "
1570 DATA " 00000 ",0     0,0     0,0     0,0     0
1580 DATA 0     0," 00000 "
1590 DATA "   1   ","  11   "," 1 1   ","   1   ","   1   "
1600 DATA "   1   "," 11111 "
1610 DATA "  2222 "," 2    2","     2 ","    2  ","   2   "
1620 DATA "  2    "," 222222"
1630 DATA " 33333 ",3     3,"      3","    33 ","      3"
1640 DATA "3     3"," 33333 "
1650 DATA "    44 ","  4  4 "," 4   4 ","444444 ","     4 "
1660 DATA "     4 ","     4 "
1670 DATA "555555 ","5      ","5      ","55555  ","     5 "
1680 DATA "     5 ","55555  "
1690 DATA " 6666  ","6      ","6      ","66666  ","6    6 "
1700 DATA "6    6 "," 6666  "
1710 DATA 7777777,"     7 ","    7  ","   7   ","  7    "
1720 DATA " 7     ","7      "
1730 DATA "  8888 "," 8    8"," 8    8","  8888 "," 8    8"
1740 DATA " 8    8","  8888 "
1750 DATA "  9999 "," 9    9"," 9    9","  99999","      9"
1760 DATA "      9","  9999 "
1770 DATA "       ","  ::   ","  ::   ","       ","  ::   "
1780 DATA "  ::   ","       "
1790 DATA "       ","  ;;   ","  ;;   ","       ","   ;   "
1800 DATA "  ;    ","       "
1810 DATA "    <  ","   <   ","  <     "," <     ","  <    "
1820 DATA "   <   ","    <  "
1830 DATA "       "," ===== "," ===== ","       "," ===== "
1840 DATA " ===== ","       "
1850 DATA "  >    ","   >   ","    >  ","     > ","    >  "
1860 DATA "   >   ","  >    "
1870 DATA "  ???  "," ?   ? ","     ? ","    ?  ","   ?   "
1880 DATA "       ","   ?   "
1890 DATA "       ","       ","       ","       ","       "
1900 DATA "       ","       "
1910 DATA " AAAAA ",AA   AA,AA   AA,AAAAAAA
1920 DATA "AA   AA","AA   AA","AA   AA"
1930 DATA "BBBBBB ",BB   BB,BB   BB,"BBBBBB "
1940 DATA BB   BB,BB   BB,"BBBBBB "
1950 DATA " CCCCC ","CC   CC","CC     ","CC     ","CC     "
1960 DATA CC   CC," CCCCC "
1970 DATA "DDDDDD ",DD   DD,DD   DD,DD   DD
1980 DATA DD   DD,DD   DD,"DDDDDD "
1990 DATA EEEEEEE,"EE     ","EE     ","EEEEE  ","EE     "
2000 DATA "EE     ",EEEEEEE
2010 DATA FFFFFFF,"FF     ","FF     ","FFFF   ","FF     "
2020 DATA "FF     ","FF     "
2030 DATA " GGGGG ",GG   GG,"GG     ","GG     ",GG  GGG
2040 DATA GG   GG," GGGGG "
2050 DATA HH   HH,HH   HH,HH   HH,HHHHHHH,HH   HH
2060 DATA HH   HH,HH   HH
2070 DATA "  IIII ","   II  ","   II  ","   II  ","   II  "
2080 DATA "   II  ","  IIII "
2090 DATA "     JJ","     JJ","     JJ","     JJ","     JJ"
2100 DATA " JJ  JJ","  JJJJ "
2110 DATA KK   KK,"KK  KK ","KK KK  ","KKKK   ","KKKKK  "
2120 DATA "KK  KK ",KK   KK
2130 DATA "LL     ","LL     ","LL     ","LL     ","LL     "
2140 DATA "LL     ",LLLLLLL
2150 DATA M     M,MM   MM,MMM MMM,MM M MM,MM   MM
2160 DATA MM   MM,MM   MM
2170 DATA N    NN,NN   NN,NNN  NN,NN N NN,NN  NNN
2180 DATA NN   NN,NN    N
2190 DATA " OOOOO ",OO   OO,OO   OO,OO   OO,OO   OO
2200 DATA OO   OO," OOOOO "
2210 DATA "PPPPPP ",PP   PP,PP   PP,"PPPPPP "
2220 DATA "PP     ","PP     ","PP     "
2230 DATA " QQQQQ ",QQ   QQ,QQ   QQ,QQ   QQ
2240 DATA QQ   QQ,QQ  QQQ," QQQQQQ"
2250 DATA "RRRRRR ",RR   RR,RR   RR,"RRRRRR ","RRRR   "
2260 DATA "RR RR ","RR  RR "
2270 DATA " SSSSSS","SS     ","SS     "," SSSSS ","     SS"
2280 DATA "     SS","SSSSSS "
2290 DATA "TTTTTT ","  TT   ","  TT   ","  TT   ","  TT   "
2300 DATA "  TT   ","  TT   "
2310 DATA UU   UU,UU   UU,UU   UU,UU   UU,UU   UU
2320 DATA UU   UU," UUUUU "
2330 DATA " V    V"," V    V"," VV  VV","  V  V ","  VVVV "
2340 DATA "   VV  ","   VV  "
2350 DATA WW   WW,WW   WW,WW   WW,WW   WW,WW W WW
2360 DATA WWW WWW," W   W "
2370 DATA XX   XX," XX XX ","  XXX  ","  XXX  ","  XXX  "
2380 DATA " XX XX ",XX   XX
2390 DATA YY   YY," YY YY ","  YYY  ","   YY  ","   YY  "
2400 DATA "   YY  ","   YY   "
2410 DATA ZZZZZZZ,"     Z ","    Z  ","   Z   ","  Z    "
2420 DATA " Z     ",ZZZZZZZ, , , , ,
2430 !
2440 CLOSE #2
2450 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.