ZX81 Listing for wizerdry.p


ZX81 program listing for **WIZERDRY**SLR/1983***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17913
VARS  : 18706
E-LINE: 18707
STKBOT: 18707
STKEND: 18707


LEGEND

9999 means line number
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;"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