image of READY prompt

Wang2200.org

Listing of file='SKETCH' on disk='vmedia/more_games.wvd.zip'

# Sector 1266, program filename = 'SKETCH'
0001 REM %'SKETCH' - ETCH-A-SKETCH PROGRAM - by R.L. Droz, Wang 2200 developme
     nt - 07/16/79
0010 REM % DRAW BOX
0020 DIM K$1,P$1
   : P$=HEX(00)
   : R=12
   : C=30
0030 PRINT HEX(0D0305),,HEX(020400020E);" ROGER'S ETCH-A-SKETCH PROGRAM. ";HEX
     (020402000F)
0040 PRINT AT(22,0);"SF'3 clears screen;  SF'0 exits program.";
0050 IF P$=HEX(00) THEN PRINT AT(23,0,70);"Use cursor keys to";HEX(0E);" draw
     ";HEX(0F);"lines, use SF'15 to switch to erase mode.";AT(R,C);
   : ELSE PRINT AT(23,0,70);"Use cursor keys to erase lines, use SF'15 to swit
     ch to ";HEX(0E);"draw";HEX(0F);" mode.";AT(R,C);
0060 KEYIN K$,70,70
   : GOTO 60
0070 IF K$=HEX(03) THEN 20
   : IF K$=HEX(00) THEN 9000
   : IF K$<>HEX(0F) THEN 80
   : IF P$=HEX(00) THEN P$=HEX(04)
   : ELSE P$=HEX(00)
   : GOTO 40
0080 $TRAN (K$, HEX(000000010002000300040A050C06000700080009000A000B090C080D00
     0E000F084D094C0C460A452020))R
0090 IF K$<HEX(10) THEN 100
   : IF K$=HEX(1F) THEN GOSUB '31
   : GOTO 60
0100 PRINT HEX(020B);P$;K$;HEX(0F);
0110 ON VAL(K$)-7 GOTO 120,130,140,,150
   : ELSE GOTO 60
0120 C=MOD(80+C-1,80)
   : GOTO 60
0130 C=MOD(C+1,80)
   : GOTO 60
0140 R=MIN(R+1,23)
   : GOTO 60
0150 R=MOD(24+R-1,24)
   : GOTO 60
8999 DEFFN'0
9000 DEFFN'31
   : LOAD T O9$
   : ERRORLOAD T "!"