10  FILES *
20  DIM A$[255],B$[255],B1$[255]
30  DIM M[12],C[6,21]
40  PRINT "DO YOU WANT A LIST OF THE POSTERS I HAVE ?";
50  LINPUT A$[1,1]
60  IF A$[1,1]#"Y" THEN 140
70  RESTORE 510
80  PRINT LIN(2)
90  READ A$,B$
100  IF A$="" THEN 130
105  IF A$="SEXY" THEN 90
110  PRINT A$,
120  GOTO 90
130  PRINT LIN(-2)
140  PRINT "POSTER WANTED ?";
150  LINPUT A$
160  IF A$="" THEN 40
170  RESTORE 510
180  B1$="*"
190  READ B$,B1$[2]
200  IF B$="" THEN 140
210  IF B$[1,LEN(A$)]#A$ THEN 180
220  ASSIGN B1$,1,X
230  IF X <= 2 THEN 260
240  PRINT "POSTER NOT AVAILABLE."
250  GOTO 140
260  PRINT "DO YOU WANT A CALENDAR ON THE BOTTOM (Y/N) ";
270  LINPUT A$
280  Y=0
290  IF A$[1,1]#"Y" THEN 320
300  PRINT "FOR WHAT YEAR ";
310  INPUT Y
320  PRINT "POSITION PAPER - PUSH RETURN WHEN READY"
330  ENTER 20,X,A$
340  IF  END #1 THEN 430
350  READ #1;A$
360  B$=""
370  FOR X=1 TO LEN(A$)
380  B$[LEN(B$)+1]=A$[X,X]
390  B$[LEN(B$)+1]=A$[X,X]
400  NEXT X
410  PRINT B$;LIN(1);B$
420  GOTO 350
430  PRINT LIN(30)
440  IF Y=0 THEN 460
450  GOSUB 790
460  ENTER 20,Z1,Z1
470  PRINT LIN(3);"ANOTHER POSTER? ";
480  LINPUT A$[1,1]
490  IF A$[1,1]="Y" THEN 140
500  STOP 
510  DATA "WOODSTOCK","PINUPA"
520  DATA "LINUS","PINUPB"
530  DATA "CHUCK 1","PINUPC"
540  DATA "CHUCK 2","PINUPD"
550  DATA "CHUCK 3","PINUPE"
560  DATA "SNOOPY 1","PINUPF"
570  DATA "SNOOPY 2","PINUPG"
580  DATA "SNOOPY 3","PINUPH"
590  DATA "SNOOPY 4","PINUPI"
600  DATA "SNOOPY 5","PINUPJ"
610  DATA "SNOOPY 6","PINUPK"
620  DATA "SNOOPY 7","PINUPL"
630  DATA "MICKEY","PINUPM"
640  DATA "ANDY CAPP","PINUPN"
650  DATA "VIKING","PINUPO"
660  DATA "BUNNY","PINUPP"
670  DATA "SEXY","PINUPQ"
680  DATA "ENTERPRISE","PINUPR"
690  DATA "JAWS","PINUPS"
700  DATA "NIXON","PINUPT"
710  DATA "MARY","PINUPU"
720  DATA "PEACE","PINUPV"
730  DATA "STAR WARS","PINUPW"
740  DATA "SARGE","PINUPX"
750  DATA "GARFIELD","PINUPY"
760  DATA "ROAD RUNNER","PINUPZ"
770  DATA "",""
780  END 
790  REM CALENDAR SUBROUTINE
800  PRINT LIN(5)
810  RESTORE 830
820  MAT  READ M
830  DATA 31,0,31,30,31,30,31,31,30,31,30,31
840  X=INT(Y/100)
850  Z=Y-X*(100)
860  L=(SGN(INT(Y/4)-Y/4)+1)*SGN(Z)+SGN(INT(Y/(20^2))-Y/(20^2))+1
870  D=INT(5/4*Z)+6-(X/4-INT(X/4))*8+2-L
880  D=D-INT((D-1)/7)*7-1
890  M[2]=28+L
900  L=1
910  PRINT TAB(44)"****    CALENDAR FOR THE YEAR"Y"****"LIN(2)
920  N=1
930  MAT C=ZER
940  FOR X=1 TO 3
950  FOR A=1 TO 6
960  D=D*(D#7)
970  FOR B=X*7-6+D TO X*7
980  C[A,B]=N
990  N=N+1
1000  IF N>M[L] THEN 1040
1010  NEXT B
1020  D=0
1030  NEXT A
1040  L=L+1
1050  D=B-INT((B-1)/7)*7
1060  N=1
1070  NEXT X
1080  GOSUB 1390
1090  FOR A=1 TO 3
1100  GOSUB 1450
1110  IF A#2 THEN 1130
1120  READ A$[7,15],A$[31,39],A$[55,63]
1130  PRINT TAB(30);A$
1140  NEXT A
1150  GOSUB 1390
1160  GOSUB 1450
1170  A$[3,21]="S  M  T  W  T  F  S"
1180  A$[27,45]=A$[3]
1190  A$[51]="S  M  T  W  T  F  S*"
1200  PRINT TAB(30);A$
1210  FOR A=1 TO 6
1220  GOSUB 1450
1230  FOR B=1 TO 21
1240  C=B*3+3*SGN(1+SGN(B-8))+3*SGN(1+SGN(B-15))
1250  IF C[A,B]=0 THEN 1270
1260  CONVERT C[A,B] TO A$[C-(C[A,B]>9),C]
1270  NEXT B
1280  PRINT TAB(30);A$
1290  GOSUB 1450
1300  NEXT A
1310  GOSUB 1390
1320  IF L-13 THEN 920
1330  DATA " JANUARY "," FEBRUARY","   MARCH ","   APRIL ","    MAY  "
1340  DATA "   JUNE  ","   JULY  ","  AUGUST ","SEPTEMBER","  OCTOBER"
1350  DATA " NOVEMBER"," DECEMBER"
1360  PRINT LIN(5)
1370  RETURN 
1380  STOP 
1390  A$[1,72]=" "
1400  A$[1,22]="**********************"
1410  A$[25,46]=A$[1,22]
1420  A$[49,70]=A$[1,22]
1430  PRINT TAB(30);A$
1440  RETURN 
1450  A$[1,72]=" "
1460  A$[1,1]="*"
1470  A$[22,25]="*  *"
1480  A$[46,49]="*  *"
1490  A$[70]="*"
1500  RETURN 
1510  END 
