ZX81 Listing for cr.p


ZX81 program listing for **CREATURE**SLR/1985***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 29510
VARS  : 30303
E-LINE: 30304
STKBOT: 30304
STKEND: 30304


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **CREATURE**SLR/1985***
  20 FOR A=0 TO 14
  30 PRINT AT A,0;"             
                   "
  40 NEXT A
  50 PRINT AT 15,0;"          ³ 
·³ô³³·³ô ³          ¶³ô ó³³±ó¶³ 
 ÷±  ²´  ³öó²³³ó ·³ö ³³³³ ·³³³³³
ô³³³³³³·³³³³³ô ³³³³³  ó¶³      ÷
±      ²´      ³öó  ·³³³³³³³³³ô³
³³³³³³³³³·³³³³³³³³³ô         ÷± 
         ²´         ³³³³³³³³ô³³³
³³³³³³³³³³³·³³³³³³³³"
  60 GOSUB 1510
  70 GOSUB 1820
  80 PRINT AT 14,14;"¸¸¸¸"
  90 LET L=SIN PI
 100 PRINT AT 13,14;"¸¸¸¸";AT 14
,14;"ºººº"
 110 LET L=SIN PI
 120 PRINT AT 12,14;"¸¸¸¸";AT 13
,14;"±ô·²"
 130 LET L=SIN PI
 140 PRINT AT 11,14;"¸¸¸¸";AT 12
,14;"¶÷´ö"
 150 LET L=SIN PI
 160 PRINT AT 10,14;"¸¸¸¸";AT 11
,14;"÷´÷´"
 170 LET L=SIN PI
 180 PRINT AT 9,14;"ºººº";AT 10,
14;" ¶ö "
 190 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
 200 PRINT AT 13,14;"!!!!";AT 14
,14;"    "
 210 LET L=SIN PI
 220 PRINT AT 12,14;"!!!!";AT 13
,14;"ñ´÷ò"
 230 LET L=SIN PI
 240 PRINT AT 11,14;"!!!!";AT 12
,14;"ö·ô¶"
 250 LET L=SIN PI
 260 PRINT AT 10,14;"!!!!";AT 11
,14;"·ô·ô"
 270 LET L=SIN PI
 280 PRINT AT 9,14;"¹¹¹¹";AT 10,
14;" ¶ö "
 290 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
 300 PRINT AT 9,14;"º¹º¹"
 310 LET L=SIN PI
 320 PRINT AT 9,14;"¹º¹º"
 330 LET L=SIN PI
 340 PRINT AT 9,14;"º º "
 350 LET L=SIN PI
 360 PRINT AT 9,14;" ¹ ¹"
 370 LET L=SIN PI
 380 PRINT AT 9,14;" º º"
 390 LET L=SIN PI
 400 PRINT AT 9,14;"¹ ¹ "
 410 LET L=SIN PI
 420 PRINT AT 9,14;"    "
 430 GOSUB 1850
 440 REM
 450 PRINT AT 11,0;"   ";AT 11,2
9;"      ";AT 12,29;"   "
 460 LET L=SIN PI*SIN PI*SIN PI
 470 PRINT AT 11,0;"   ÷ó´";AT 1
1,26;"÷ó´      ²³³±";AT 12,26;"²
³±   "
 480 LET L=SIN PI*SIN PI*SIN PI
 490 PRINT AT 11,3;"    ó";AT 11
,24;"ó              ³";AT 12,24;
    "
 500 LET L=SIN PI*SIN PI*SIN PI
 510 PRINT AT 11,7;"   ó";AT 11,
21;"ó   ";AT 12,7;" ";AT 12,24;"
 "
 520 LET L=SIN PI*SIN PI*SIN PI
 530 PRINT AT 11,10;"   ÷";AT 11
,18;"´   "
 540 LET L=SIN PI*SIN PI*SIN PI
 550 PRINT AT 11,13;" ";AT 11,18
;" "
 560 LET L=SIN PI*SIN PI*SIN PI
 570 FOR A=1 TO 10
 580 PRINT AT 10,14;"öö¶¶";AT 11
,14;"öö¶¶";AT 12,14;"¶¶öö";AT 13
,14;"¶¶öö"
 590 LET L=SIN PI
 600 PRINT AT 10,14;"¶¶öö";AT 11
,14;"¶¶öö";AT 12,14;"öö¶¶";AT 13
,14;"öö¶¶"
 610 LET L=SIN PI
 630 PRINT AT 10,14;"öö¶¶";AT 11
,14;"ö±²¶";AT 12,14;"¶´÷ö";AT 13
,14;"¶¶öö"
 640 LET L=SIN PI*SIN PI*SIN PI
 650 PRINT AT 10,14;"öö¶¶";AT 11
,14;"ö  ¶";AT 12,14;"¶  ö";AT 13
,14;"¶¶öö"
 660 LET L=SIN PI*SIN PI*SIN PI
 670 PRINT AT 10,14;"²²±±";AT 11
,14;"´  ÷";AT 12,14;"±  ²";AT 13
,14;"÷÷´´"
 680 LET L=SIN PI*SIN PI*SIN PI
 690 PRINT AT 10,14;"    ";AT 11
,14;"    ";AT 12,14;"    ";AT 13
,14;"    "
 700 LET L=SIN PI*SIN PI*SIN PI
 710 PRINT AT 9,14;"ö³³´";AT 10,
14;"µ³óõ";AT 11,14;"õ  µ";AT 12,
14;"ö  ò";AT 13,14;" ö õ";AT 14,
14;"  ö·"
 720 FOR A=1 TO 100
 730 NEXT A
 740 PRINT AT 0,14;"ôóó·"
 750 LET L=SIN PI*SIN PI*SIN PI
 760 PRINT AT 1,14;"ôóó·";AT 0,1
4;"µ¶öõ"
 770 LET L=SIN PI*SIN PI*SIN PI
 780 PRINT AT 2,14;"ôóó·";AT 1,1
4;"µ¶öõ";AT 0,14;"µö¶õ"
 790 LET L=SIN PI*SIN PI*SIN PI
 800 FOR A=0 TO 11
 810 PRINT ;AT A+3,14;"ôóó·";AT
A+2,14;"µ¶öõ";AT A+1,14;"µö¶õ";
AT A,14;"ñ³³ò";AT A-1,14;"    "
AND A>0
 820 LET L=SIN PI*SIN PI*SIN PI
 830 NEXT A
 840 FOR A=1 TO 50
 850 NEXT A
 860 PRINT AT 11,31;" ";AT 12,31
;" ";AT 13,31;" ";AT 14,31;" "
 870 LET L=SIN PI
 880 PRINT AT 11,30;" ñ";AT 12,3
0;"  ";AT 13,30;"  ";AT 14,30;" 
 "
 890 LET L=SIN PI
 900 PRINT AT 11,29;" ñò";AT 12,
29;"   ";AT 13,29;" · ";AT 14,29
;" ò÷"
 910 LET L=SIN PI
 920 PRINT AT 11,28;" ñò ";AT 12
,28;"    ";AT 13,28;" ²± ";AT 14
,28;" ´÷ "
 930 LET L=SIN PI
 940 FOR A=27 TO -3 STEP -6
 950 PRINT AT 11,A+1;"ñò  ";AT 1
2,A;"     ";AT 13,A;"  ô  ";AT 1
4,A;" ´ñ  "
 960 LET L=SIN PI
 970 PRINT AT 11,A;"ñò  ";AT 12,
A-1;"     ";AT 13,A-1;"µõ   ";
AT 14,A-1;" òñ  "
 980 LET L=SIN PI
 990 PRINT AT 11,A-1;"ñò  ";AT 1
2,A-2;"     ";AT 13,A-2;"     ";
AT 14,A-2;"     "
1000 LET L=SIN PI
1010 PRINT AT 11,A-2;"ñò  ";AT 1
2,A-3;"     ";AT 13,A-3;"  µõ ";
AT 14,A-3;"  òñ "
1020 LET L=SIN PI
1030 IF A=3 THEN GOTO 1090
1040 PRINT AT 11,A-3;"ñò  ";AT 1
2,A-4;"     ";AT 13,A-4;" ·   ";
AT 14,A-4;" ò÷  "
1050 LET L=SIN PI
1060 PRINT AT 11,A-4;"ñò  ";AT 1
2,A-5;"     ";AT 13,A-5;" ²±  ";
AT 14,A-5;" ´÷  "
1070 LET L=SIN PI
1080 NEXT A
1090 PRINT AT 11,0;"ñò  ";AT 12,
0;"    ";AT 13,0;"·   ";AT 14,0;
"ò÷  "
1100 LET L=SIN PI
1110 PRINT AT 11,0;"ò  ";AT 12,0
;"   ";AT 13,0;"±  ";AT 14,0;"÷ 
 "
1120 LET L=SIN PI
1130 PRINT AT 11,0;"  ";AT 12,0;
 ";AT 13,0;"  ";AT 14,0;"  "
1140 LET L=SIN PI
1150 PRINT AT 11,0;" ";AT 12,0;"
 ";AT 13,0;" ";AT 14,0;" "
1160 FOR A=1 TO 100
1170 NEXT A
1180 LET L=SIN PI*SIN PI
1190 PRINT AT 5,31;"¹";AT 6,31;"
º";AT 7,31;"¶";AT 8,31;"!"
1200 LET L=SIN PI*SIN PI
1210 PRINT AT 5,30;"¹¸";AT 6,30;
"º¸";AT 7,30;"¶õ";AT 8,30;"!!"
1220 LET L=SIN PI*SIN PI
1230 PRINT AT 5,29;"¹¸¸";AT 6,29
;"º¸¸";AT 7,29;"¶õµ";AT 8,29;"!!
!"
1240 LET L=SIN PI*SIN PI
1250 PRINT AT 5,28;"¹¸¸¹";AT 6,2
8;"º¸¸º";AT 7,28;"¶õµö";AT 8,28;
"!!!!"
1260 LET L=SIN PI*SIN PI
1270 FOR A=27 TO 14 STEP -1
1280 PRINT AT 5,A;"¹¸¸¹ ";AT 6,A
;"º¸¸º ";AT 7,A;"¶õµö ";AT 8,A;"
!!!! "
1290 LET L=SIN PI*SIN PI
1300 NEXT A
1310 FOR A=5 TO 11
1320 PRINT AT A+3,14;"!!!!";AT A
+2,14;"¶õµö";AT A+1,14;"º¸¸º";
AT A,14;"¹¸¸¹";AT A-1,14;"    "
1330 LET L=SIN PI*SIN PI
1340 NEXT A
1360 PRINT AT 14,14;"¶õµö";AT 13
,14;"º¸¸º";AT 12,14;"¹¸¸¹";AT 11
,14;"    "
1370 LET A$="**CREATURE** A GRAP
HIC IMAGERY>>"
1380 FOR A=1 TO 32
1390 LET B$=A$(A)
1400 LET B1=11-3
1410 LET A1=15-(A-1)
1420 LET C=(A1 AND ABS A1>=ABS B
1)+(B1 AND ABS B1>ABS A1)
1430 IF C=0 THEN LET C=0.1
1440 FOR F=0 TO C STEP SGN C
1450 PRINT AT 11+B1/C*-F,15+A1/C
*-F;B$;AT 11+B1/C*-(F+(-SGN C)),
15+A1/C*-(F+(-SGN C));" " AND F
<>0
1460 NEXT F
1470 NEXT A
1480 FOR A=1 TO 200
1490 NEXT A
1500 GOTO 2050
1510 PRINT AT 7,15;"²"
1520 LET L=SIN PI*SIN PI
1530 PRINT AT 6,15;"÷´";AT 7,16;
"±"
1540 LET L=SIN PI*SIN PI
1550 PRINT AT 6,15;"ñò";AT 7,15;
"  "
1560 LET L=SIN PI*SIN PI
1570 PRINT AT 5,15;"óó";AT 6,14;
"õ  µ";AT 7,14;"õ  µ";AT 8,14;"²
³³±"
1580 LET L=SIN PI*SIN PI
1590 PRINT AT 5,14;"÷  ´";AT 6,1
4;"    ";AT 7,14;"    ";AT 8,14;
"    "
1600 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
1610 PRINT AT 6,15;"·ô";AT 7,15;
"òñ"
1620 LET L=SIN PI*SIN PI
1630 PRINT AT 6,15;"±²";AT 7,15;
"´÷"
1640 LET L=SIN PI*SIN PI
1650 PRINT AT 5,14;"÷·ô´";AT 6,1
4;"·  ô";AT 7,14;"ò  ñ";AT 8,15;
"òñ"
1660 LET L=SIN PI*SIN PI
1670 PRINT AT 5,14;"÷³³´";AT 6,1
4;"µ  õ";AT 7,14;"µ  õ";AT 8,14;
"òóóñ"
1680 LET L=SIN PI*SIN PI
1690 PRINT AT 6,15;"·ô";AT 7,15;
"²±"
1700 LET L=SIN PI*SIN PI
1710 PRINT AT 6,15;"¶ö";AT 7,15;
"õµ"
1720 LET L=SIN PI*SIN PI
1730 PRINT AT 5,14;"÷ô·´";AT 6,1
4;"µ¶öõ";AT 7,14;"·ñòô";AT 8,14;
"òñòñ"
1740 LET L=SIN PI*SIN PI
1750 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;" ñò ";AT 8,14;
"òúúñ"
1760 LET L=SIN PI*SIN PI
1770 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;"ôñò·";AT 8,14;
"ò¸¸ñ"
1780 LET L=SIN PI*SIN PI
1790 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;"ôñò·";AT 8,14;
"µ¸¸õ"
1800 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
1810 RETURN
1820 LET A$="                   
               ...I AM THE DUNGE
ON MASTER...THE CREATURE AS YOU 
ARE FOND OF CALLING ME...YOU WIL
L DIE*****...                   
             "
1830 GOSUB 2000
1840 RETURN
1850 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1860 PRINT AT 5,14;"÷/ ´";AT 6,1
4;"¶öô ";AT 7,14;"ñò· ";AT 8,14;
"¸¸õ "
1870 LET L=SIN PI*SIN PI
1880 PRINT AT 5,14;"÷  ´";AT 6,1
4;"öô ±";AT 7,14;"ò· ´";AT 8,14;
"¸õ  "
1890 LET L=SIN PI*SIN PI
1900 PRINT AT 5,14;"÷  ´";AT 6,1
4;"ô ±²";AT 7,14;"· ´÷";AT 8,14;
"õ   "
1910 LET L=SIN PI*SIN PI
1920 PRINT AT 5,14;"÷  ´";AT 6,1
4;" ±² ";AT 7,14;" ´÷ ";AT 8,14;
"    "
1930 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1940 PRINT AT 5,14;"÷óó´";AT 6,1
4;"õ·ôµ";AT 7,14;"õòñµ";AT 8,14;
"²³³±"
1950 LET L=SIN PI*SIN PI
1960 PRINT AT 5,14;"    ";AT 6,1
4;" ñò ";AT 7,14;"    ";AT 8,14;
"    "
1970 LET L=SIN PI*SIN PI
1980 PRINT AT 5,14;"    ";AT 6,1
4;" ÷´ ";AT 7,14;" ²± ";AT 8,14;
"    "
1990 LET L=SIN PI*SIN PI
1992 PRINT AT 5,14;"    ";AT 6,1
4;"    ";AT 7,14;" ²  ";AT 8,14;
"    "
1994 LET L=SIN PI*SIN PI
1996 PRINT AT 5,14;"    ";AT 6,1
4;"    ";AT 7,14;"    ";AT 8,14;
"    "
1997 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1998 RETURN
2000 FOR A=1 TO (LEN A$-31)
2010 PRINT AT 14,0;A$(A TO A+31)
;AT 8,15;"¹¹" AND A$(A+31)>="A";
AT 6,15;"²±" AND RND>.7
2020 PRINT AT 8,15;"!!";AT 6,15;
"¶ö"
2030 NEXT A
2040 RETURN
2050 PRINT AT 12,31;"÷";AT 13,31
;"¸";AT 14,31;"ô"
2060 LET L=SIN PI
2070 PRINT AT 12,30;"÷¹";AT 13,3
0;"¸¸";AT 14,30;"ô±"
2080 LET L=SIN PI
2090 PRINT AT 12,29;"÷¹¸";AT 13,
29;"¸¸·";AT 14,29;"ô±ô"
2100 LET L=SIN PI
2110 PRINT AT 11,31;"ñ";AT 12,28
;"÷¹¸¸";AT 13,28;"¸¸ ô";AT 14,28
;"ô±ö·"
2120 LET L=SIN PI
2130 FOR A=27 TO 14 STEP -2
2140 PRINT AT 11,A+3;"ñ!";AT 12,
A;"÷¹¸¸!";AT 13,A;"¸¸ ô!";AT 14,
A;"ô±ô¶!"
2150 LET L=SIN PI
2160 PRINT AT 11,A+2;"ñ!";AT 12,
A-1;"÷¹¸¸!";AT 13,A-1;"¸¸ ô!";
AT 14,A-1;"ô±ö·!"
2170 REM
2180 NEXT A
2190 PRINT AT 11,16;"ñ ";AT 12,1
4;" ¹¸ ";AT 13,14;"õ· ò";AT 14,1
4;"²ò³·"
2200 LET L=SIN PI
2210 PRINT AT 11,15;"õµ";AT 12,1
4;" ¸¸ ";AT 13,14;"ñ¸¸ò";AT 14,1
4;"ôô··"
2220 LET L=SIN PI
2230 PRINT AT 11,15;"  !";AT 12,
14;"   !";AT 13,14;"÷¸´!";AT 14,
14;"ô³·!"
2240 LET L=SIN PI
2250 PRINT AT 11,15;"  !";AT 12,
14;"  !!";AT 13,14;"ñ·!!";AT 14,
14;"ô·!!"
2260 LET L=SIN PI
2270 PRINT AT 11,15;"  !";AT 12,
14;"  !!";AT 13,14;" !!!";AT 14,
14;" !!!"
2280 LET L=SIN PI
2290 PRINT AT 11,15;"  !";AT 12,
14;"  !!";AT 13,14;" !!!";AT 14,
14;"!!!!"
2300 FOR A=1 TO 50
2310 NEXT A
2320 GOSUB 1510
2330 LET A$="              !!!!!
!!!!!!!!!!!!!  ...SEE,NO ONE CAN
 STOP THE CREATURE,NOT EVEN YOUR
 PITIFUL UFO...YOUR MONSTERS WER
E ALSO EASY**              !!!!!
!!!!!!!!!!!!!"
2340 GOSUB 2000
2350 FOR A=1 TO 50
2360 NEXT A
2370 PRINT AT 9,14;"····"
2380 LET L=SIN PI*SIN PI*SIN PI
2390 PRINT AT 9,14;"³ùù³";AT 10,
14;"ôôôô"
2400 LET L=SIN PI*SIN PI*SIN PI
2410 PRINT AT 9,14;"!!!!";AT 10,
14;"³ùù³";AT 11,14;"····"
2420 LET L=SIN PI*SIN PI*SIN PI
2430 PRINT AT 9,14;"÷><´";AT 10,
14;"!!!!";AT 11,14;"³ùù³";AT 12,
14;"ôôôô"
2432 LET L=SIN PI*SIN PI*SIN PI
2434 PRINT AT 9,14;"    ";AT 10,
14;"÷<>´";AT 11,14;"!!!!";AT 12,
14;"³ùù³";AT 13,14;"····"
2436 LET L=SIN PI*SIN PI*SIN PI
2438 PRINT AT 10,14;"    ";AT 11
,14;"÷><´";AT 12,14;"!!!!";AT 13
,14;"³ùù³";AT 14,14;"ôôôô"
2440 LET L=SIN PI*SIN PI*SIN PI
2450 FOR A=13 TO 27 STEP 2
2460 PRINT AT 11,A;" ÷<>´";AT 12
,A;" !!!!";AT 13,A;" ³ùù³";AT 14
,A;" ····"
2470 LET L=SIN PI*SIN PI*SIN PI
2480 IF A<27 THEN PRINT AT 11,A+
1;" ÷><´";AT 12,A+1;" !!!!";AT 1
3,A+1;" ³ùù³";AT 14,A+1;" ôôôô"
2490 LET L=SIN PI*SIN PI
2500 NEXT A
2510 PRINT AT 11,28;" ÷<>";AT 12
,28;" !!!";AT 13,28;" ³ùù";AT 14
,28;" ···"
2520 LET L=SIN PI*SIN PI*SIN PI
2530 PRINT AT 11,29;" ÷>";AT 12,
29;" !!";AT 13,29;" ³ù";AT 14,29
;" ôô"
2540 LET L=SIN PI*SIN PI*SIN PI
2550 PRINT AT 11,30;" ÷";AT 12,3
0;" !";AT 13,30;" ³";AT 14,30;" 
·"
2560 LET L=SIN PI*SIN PI*SIN PI
2570 PRINT AT 11,31;" ";AT 12,31
;" ";AT 13,31;" ";AT 14,31;" "
2580 FOR A=1 TO 50
2590 NEXT A
2600 LET A$="                   
               ...I"VE WON...MY 
GAMING PROGRAM HAS ENDED...TO SE
E MORE,WAIT AROUND...THE CREATUR
E(D.M.)***...                   
              "
2610 GOSUB 2000
2620 FOR A=1 TO 50
2630 NEXT A
2640 PRINT AT 14,0;"PROGRAM BY S
TEVEN L. REID (SLR) "
2650 GOSUB 1850
2660 FOR A=1 TO 100
2670 NEXT A
2680 FOR A=0 TO 21 STEP 2
2690 PRINT AT A,0;"úú!ú!ú!ú!úú!!
!!úú!!!!úú!ú!ú!ú!úú";AT A-1,0;" 
                               "
AND A>0
2700 LET L=SIN PI
2710 PRINT AT A+1,0;"!!ú!ú!ú!ú!!
úúúú!!úúúú!!ú!ú!ú!ú!!";AT A,0;" 
                               "
2720 LET L=SIN PI
2730 NEXT A
2740 PRINT AT 21,0;"            
                    "
2750 FOR A=1 TO 50
2760 NEXT A
2770 RUN
2780 CLEAR
2790 SAVE "CR"
2800 RUN