SYSTEM VARIABLES
PROG : 16509
D-FILE: 17891
VARS : 18684
E-LINE: 18703
STKBOT: 18715
STKEND: 18715
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
10 REM **WIZERDRY**SLR/1983***
20 FOR Z=0 TO 20
30 PRINT AT Z,0;"[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
40 NEXT Z
50 PRINT AT 2,5;"[W][I][Z][E][R][D][R][Y][ ][ ][ ][<][=][=][=][=][=][=][=][=][=]"
60 PRINT AT 16,10;"{H}{H}{H}{H}[ ][ ][ ]{7}";AT 17,10;"{H}{H}{H}{H}[ ][ ][ ] ";AT 18,10;"[ ]{H}{H}[ ][ ][ ]{5}{A}{8}";AT 19,10;"[ ]{F}{F}[ ][ ][ ]{W}{S}{Q}"
70 LET L=SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI
80 FOR W=1 TO 5
90 LET L=SIN PI
100 PRINT AT 15,10;"{5}[ ]{8}{5}"
110 LET L=SIN PI
120 PRINT AT 15,10;"[ ][ ][ ][ ]"
130 NEXT W
140 LET L=SIN PI*SIN PI*SIN PI
150 FOR A=14 TO 10 STEP -1
160 PRINT AT A,10;" "
170 NEXT A
180 FOR C=1 TO 3
190 PRINT AT 10-C,10-C;" "
200 NEXT C
210 FOR G=1 TO 2
220 PRINT AT 7-G,7+G;" "
230 NEXT G
240 PRINT AT 4,5;" "
250 PRINT AT 3,4;" "
260 PRINT AT 2,4;" ";AT 2,26;" "
270 LET L=SIN PI*SIN PI*SIN PI*SIN PI*SIN PI
280 FOR T=1 TO 5
290 LET L=SIN PI
300 PRINT AT 15,17;"{F}"
310 LET L=SIN PI
320 PRINT AT 15,17;"[ ]"
330 NEXT T
340 LET L=SIN PI*SIN PI*SIN PI*SIN PI*SIN PI
350 FOR F=1 TO 3
360 PRINT AT 15-F,16+F;"{A}"
370 NEXT F
380 FOR V=12 TO 9 STEP -1
390 PRINT AT V,19;"{A}"
400 NEXT V
410 PRINT AT 8,14;"{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}";AT 7,13;"{A}[B][Y][ ][S][T][E][V][E][N][ ][R][E][I][D]{A}"
420 LET L=SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI
430 CLS
440 PRINT AT 2,5;"WIZERDRY <=========";AT 16,10;"{A}{A}{A}{A} {6}";AT 17,10;"{A}{A}{A}{A} [ ]";AT 18,10;" {A}{A} {8}{H}{5}";AT 19,10;" {S}{S} {2}{F}{1}"
450 LET L=SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI*SIN PI
460 RUN