Listing of file='FISCAL' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 153, program filename = 'FISCAL'
0001 REM %FISCAL YEAR GREETING PROGRAM - 07/01/81 - by R.L. Droz
0002 COM P$3
0003 DIM S1$64,L(13,3)
: L=13
0005 PRINT HEX(020D0C030F),,HEX(020400020F0E);" NEW FISCAL YEAR GREETING PROGR
AM. "
: PRINT
0006 LINPUT "GRAPHIC CRT IS AT WHICH ADDRESS?" -P$
0007 MAT SEARCH "1315161704", = STR(P$,2,2) TO L$
: IF STR(L$,,2)=HEX(0000) THEN 5
0008 IF POS("4C" = STR(P$,,1)) = 0 THEN 5
: SELECT PLOT <P$>, #15 <P$>
: $OPEN #15
0015 SELECT D
0017 PLOT <,,HEX(03E5)>
0018 GOSUB '60(999,"Happy New Fiscal Year")
0021 SELECT P9
: PRINT "PROGRAM RUNNING ..."
0022 PRINT "ENTER '$RELEASE TERMINAL TO";#PART;"' TO HALT THIS PROGRAM."
0023 $PSTAT="GREETING"
: $RELEASE TERMINAL
: SELECT P
0030 RESTORE
: MAT READ L
0031 DATA 400,200,150, 100,350,25, 100,50,25, 700,350,25, 700,50,25
0032 DATA 200,80,25, 200,300,25, 600,300,25, 600,80,25
0033 DATA 200,180,25, 600,180,25, 150,180,25, 650,180,25
0035 I=MOD(L*RND(1),L)+1
0037 IF RND(1)>.2 THEN PLOT <,,HEX(E1)>
: ELSE PLOT <,,HEX(E2)>
0040 GOSUB '63(L(I,1),L(I,2),L(I,3))
0045 $BREAK 255
: 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 $
0305 DEFFN'63(X2,Y2,M)
: PLOT <INT(M/15)+1,,C>,<,,R>,<X2,Y2,"$">
: RETURN
1000 DEFFN'31
: $CLOSE
: SELECT P
: LOAD T "START"
9999 DEFFN'20
: PLOT <,,HEX(03)>
: RETURN