Listing of file='ST.PAT' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 169, program filename = 'ST.PAT' 0001 REM %HOLIDAY GREETING PROGRAM - 03/16/79 - by R.L. Droz 0002 COM P$3 0003 DIM S1$64,L(5,3) 0005 PRINT HEX(0D03),,"ST. PARTRICK'S DAY GREETING PROGRAM." : PRINT 0006 LINPUT "GRAPHICS CRT IS AT WHICH ADDRESS?" -P$ 0007 MAT SEARCH "13151604", = STR(P$,2,2) TO L$ : IF STR(L$,,2)=HEX(0000) THEN 5 0008 SELECT PLOT <P$> 0015 SELECT D 0017 PLOT <,,HEX(03E5)> 0020 GOSUB '60(999,"HAPPY ST. PATRICK'S DAY") 0021 SELECT P9 : PRINT "PROGRAM RUNNING ..." 0022 PRINT "ENTER '$RELEASE TERMINAL TO";#PART;"' TO HALT THIS PROGRAM." 0023 $PSTAT="GREETING" : $RELEASE TERMINAL 0030 RESTORE : MAT READ L 0031 DATA 400,250,150, 100,350,25, 100,100,25, 700,350,25, 700,100,25 0035 I=MOD(5*RND(1),5)+1 0037 IF RND(1)>.4 THEN PLOT <,,HEX(E1)> : ELSE PLOT <,,HEX(E2)> 0040 GOSUB '63(L(I,1),L(I,2),L(I,3)) 0045 $BREAK 20 : GOTO 35 0099 REM % CENTER WORDS 0100 DEFFN'60(Y9,S1$) : C=MIN(INT(80/LEN(S1$)),4) : S=MAX(10*C,800/LEN(S1$)) 0110 $TRAN (S1$, " ] ") R : PLOT <,,R>,<C,,C>,<S,,S>,<S/2,MIN(512-S,Y9),S1$> 0120 Y9=MIN(Y9,512)-2.5*S : RETURN 0199 REM % PLOT ABSOLUTE 0200 DEFFN'61(X,Y,P1$) : X=ROUND((X,0) : Y=ROUND((Y,0) 0205 IF P1$="U" THEN PLOT <X-X1,Y-Y1,U> : ELSE PLOT <X-X1,Y-Y1,D> 0210 X1=X : Y1=Y : RETURN 0220 DEFFN'62 : X1,Y1=0 : PLOT <,,R> : RETURN 0300 REM % DRAW SHAMROCK 0305 DEFFN'63(X2,Y2,M) : PLOT <,,R>,<X2-X3,Y2-Y3,HEX(E4)> 0307 GOSUB '62 0308 GOSUB '61(0,M*COS(-30),"U") 0310 S=1 : E=1.25 : X3=X2 : Y3=Y2 0320 FOR T=0 TO 180 STEP 5 0325 R=M*COS(3*T-30) 0330 GOSUB '61(R*SIN(T),R*COS(T),"D") 0335 NEXT T 0336 GOSUB '61(0,0,"U") 0337 FOR T=0 TO 45 STEP 5 : R=M*T*#PI/180 : GOSUB '61(-R*SIN(T),-R*COS(T),"D") : NEXT T 0340 RETURN 1000 DEFFN'31 : COM CLEAR P$ : LOAD DC T "!" 9999 DEFFN'20 : PLOT <,,HEX(03)> : RETURN