Listing of file='INCOME' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 205, program filename = 'INCOME' 0001 REM %INCOME TAX DAY GREETING PROGRAM - 04/15/80 - by R.L. Droz 0002 COM P$3 0003 DIM S1$64,L(13,3) : L=13 0005 PRINT HEX(0D03),,"INCOME TAX DAY GREETING PROGRAM." : PRINT 0006 LINPUT "GRAPHICS CRT IS AT WHICH ADDRESS?" -P$ 0007 MAT SEARCH "0413151617", = 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)> 0018 GOSUB '60(999,"Happy Income Tax 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,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 : SELECT P : COM CLEAR P$ : LOAD DC T "!" 9999 DEFFN'20 : PLOT <,,HEX(03)> : RETURN