Listing of file='LOGO2200' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 111, program filename = 'LOGO2200' 0010 REM %HOLIDAY GREETING PROGRAM - 03/08/80 - by R.L. Droz 0020 COM P$3 0030 DIM S1$64,Y$4,M$(6),C(12,2),M(6,3) : C=12 : M=6 : M5=6 0040 PRINT HEX(0D03),,HEX(020400020F0E);" WANG 2200 LOGO PROGRAM. " : PRINT 0050 LINPUT "GRAPHICS CRT IS AT WHICH ADDRESS?" -P$ 0060 MAT SEARCH "0413151617", = STR(P$,2,2) TO L$ : IF STR(L$,,2)=HEX(0000) THEN 40 0070 SELECT PLOT <P$> 0080 SELECT D 0084 SELECT P9 0085 PRINT "ENTER '$RELEASE TERMINAL TO";#PART;"' TO HALT THIS PROGRAM." 0090 PLOT <,,HEX(03E5)> 0100 S1$="WANG" 0110 S=12 : PLOT <S,,C>,<S*10,,S> 0120 PLOT <,,R>,<(800-10*S*LEN(S1$))/2,510-S*15/2,S1$> 0125 $PSTAT="GREETING" : $RELEASE TERMINAL : SELECT P 0130 M=12 0140 FOR I=12 TO 1 STEP -2 : GOSUB '63(I,M,1) : NEXT I 0150 FOR I=1 TO 10 : $BREAK 255 : NEXT I 0160 FOR I=M TO 1 STEP -1 : GOSUB '63(I,M,-1) : NEXT I 0190 GOTO 140 0200 REM % CENTER WORDS 0210 DEFFN'60(Y9,S1$) : C=MIN(INT(80/LEN(S1$)),4) : S=MAX(10*C,800/LEN(S1$)) 0220 $TRAN (S1$, " ] ") R : PLOT <,,R>,<C,,C>,<S,,S>,<S/2,MIN(512-S,Y9),S1$> 0230 Y9=MIN(Y9,512)-2.5*S : RETURN 0240 REM % PLOT ABSOLUTE 0250 DEFFN'61(X,Y,P1$) : X=ROUND((X,0) : Y=ROUND((Y,0) 0260 IF P1$="U" THEN PLOT <X-X1,Y-Y1,U> : ELSE PLOT <X-X1,Y-Y1,D> 0270 X1=X : Y1=Y : RETURN 0280 DEFFN'62 : X1,Y1=0 : PLOT <,,R> : RETURN 0290 REM % ENLARGE AND CENTER 0300 DEFFN'63(S,M,U) : IF SGN(U)=1 THEN PLOT <,,HEX(E1)> : ELSE PLOT <,,HEX(E2)> 0310 S1$="2200" 0320 PLOT <S,,C>,<S*11,,S> 0330 PLOT <,,R>,<(800-10*S*LEN(S1$))/2,(M-S)*30+S*15/2,S1$> 0340 RETURN 0350 DEFFN'31 : SELECT P : COM CLEAR P$ : LOAD DC T "!" 0360 DEFFN'20 : PLOT <,,HEX(03)> : RETURN