image of READY prompt

Wang2200.org

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