Magic Users Spell Test

   0 REM %M%A%G%I%C%-%U%S%E%R%S% %S%P%E%L%L% %L%I%S%T          BY ANTHONY WILLING              3-1-86  FOR DUNGEONS            AND DRAGONS  80 COLUMN          PRINTER REQUIRED
   3 REM %N%E%V%E%R% %R%U%N%,% %U%S%E% %G%O%T%O% %6%1%0
   5 DIM E$(1,20)
  10 DIM F$(1,20)
  20 DIM S$(1,20)
  30 DIM T$(1,20)
  40 DIM U$(1,20)
  50 DIM V$(1,20)
  60 DIM X$(1,20)
  70 DIM Z$(1,20)
  71 DIM P$(1,20)
  72 DIM Q$(1,20)
  80 DIM A$(40,64)
  90 DIM B$(34,64)
 100 DIM C$(26,64)
 200 FOR Z=1 TO 40
 210 PRINT "INPUT 1ST LEVEL SPELL ";Z
 220 INPUT F$(1)
 230 PRINT "INPUT 2ND LEVEL SPELL ";Z
 240 INPUT S$(1)
 250 PRINT "INPUT 3RD LEVEL SPELL ";Z
 260 INPUT T$(1)
 270 LET A$(Z)=F$(1)+S$(1)+T$(1)
 280 LET F$(1)=E$(1)
 290 LET S$(1)=E$(1)
 300 LET T$(1)=E$(1)
 310 CLS 
 320 NEXT Z
 350 FOR Z=1 TO 34
 360 PRINT "INPUT 4TH LEVEL SPELL ";Z
 370 INPUT U$(1)
 380 PRINT "INPUT 5TH LEVEL SPELL ";Z
 390 INPUT V$(1)
 391 PRINT "INPUT 6TH LEVEL SPELL ";Z
 392 INPUT X$(1)
 400 LET B$(Z)=U$(1)+V$(1)+X$(1)
 410 LET U$(1)=E$(1)
 420 LET V$(1)=E$(1)
 425 LET X$(1)=E$(1)
 430 CLS 
 440 NEXT Z
 500 FOR Z=1 TO 26
 530 PRINT "INPUT 7TH LEVEL SPELL ";Z
 540 INPUT Z$(1)
 541 PRINT "INPUT 8TH LEVEL SPELL ";Z
 542 INPUT P$(1)
 546 PRINT "INPUT 9TH LEVEL SPELL ";Z
 548 INPUT Q$(1)
 550 LET C$(Z)=Z$(1)+P$(1)+Q$(1)
 560 LET Z$(1)=E$(1)
 570 LET P$(1)=E$(1)
 575 LET Q$(1)=E$(1)
 580 CLS 
 590 NEXT Z
 600 CLS 
 603 PRINT "GOTO 610 FOR SPELL LIST"
 604 PRINT "GOTO 9900 TO SAVE"
 605 STOP 
 610 PRINT "PRESS ANY KEY",,"TO PRINT SPELL LISTS"
 620 PAUSE 4E4
 630 LPRINT "MAGIC-USERS SPELLS"
 650 LPRINT 
 660 LPRINT 
 670 FOR Z=1 TO 40
 680 LPRINT A$(Z)
 690 NEXT Z
 700 LPRINT 
 701 LPRINT 
 704 PRINT "RESET PRINTER TO PRINT PAGE","TWO OF MAGIC USER SPELLS","PRESS ANY KEY TO CONTINUE"
 706 PAUSE 4E4
 708 CLS 
 715 LPRINT "MAGIC-USERS SPELLS"
 716 LPRINT 
 717 LPRINT 
 720 FOR Z=1 TO 34
 730 LPRINT B$(Z)
 740 NEXT Z
 750 LPRINT 
 760 LPRINT 
 764 PRINT "RESET PRINTER TO PRINT PAGE","THREE OF MAGIC USER SPELLS","PRESS ANY KEY TO CONTINUE"
 766 PAUSE 4E4
 768 CLS 
 770 LPRINT "MAGIC-USERS SPELLS"
 771 LPRINT 
 772 LPRINT 
 774 FOR Z=1 TO 26
 780 LPRINT C$(Z)
 790 NEXT Z
 800 STOP 
\n9900 REM RAND USR 14336
\n9910 REM SAVE "MUSPLS.B1"
\n9915 SAVE "1020%9"
\n9920 GOTO 610