A boiling cauldron and bottle smoke up some words.
PROG : 16509
D-FILE: 17913
VARS : 18706
E-LINE: 18707
STKBOT: 18707
STKEND: 18707
9999 means line number
PRINT means treat as KEYWORD P
10 REM **WIZERDRY**SLR/1983***
20 FOR Z=0 TO 20
30 PRINT AT Z,0;"
"
40 NEXT Z
50 PRINT AT 2,5;"WIZERDRY <=
========"
60 PRINT AT 16,10;"¸¸¸¸ ó";
AT 17,10;"¸¸¸¸ ";AT 18,10;" ¸
¸ õ!µ";AT 19,10;" ºº ²ú±"
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;"õ µõ"
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;"º"
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;"!"
370 NEXT F
380 FOR V=12 TO 9 STEP -1
390 PRINT AT V,19;"!"
400 NEXT V
410 PRINT AT 8,14;"!!!!!!!!!!!!
!!";AT 7,13;"!BY STEVEN REID!"
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;"!!!! ³";
AT 17,10;"!!!! ";AT 18,10;" !
! µ¸õ";AT 19,10;" úú òºñ"
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
500 SAVE "WIZERDRY"
510 RUN