Clerical Spell List D&D

Gallery

Source Code

   0 REM %C%L%E%R%I%C%A%L% %S%P%E%L%L% %L%I%S%T         DUNGEONS AND DRAGONS            BY ANTHONY WILLING 3-1-86       GOTO 610, NEVER RUN             80 COLUMN PRINTER REQUIRED
   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)
  80 DIM A$(20,64)
  90 DIM B$(16,64)
 100 DIM C$(12,64)
 200 FOR Z=1 TO 20
 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 16
 360 PRINT "INPUT 4TH LEVEL SPELL ";Z
 370 INPUT U$(1)
 380 PRINT "INPUT 5TH LEVEL SPELL ";Z
 390 INPUT V$(1)
 400 LET B$(Z)=U$(1)+V$(1)
 410 LET U$(1)=E$(1)
 420 LET V$(1)=E$(1)
 430 CLS 
 440 NEXT Z
 500 FOR Z=1 TO 12
 510 PRINT "INPUT 6TH LEVEL SPELL ";Z
 520 INPUT X$(1)
 530 PRINT "INPUT 7TH LEVEL SPELL ";Z
 540 INPUT Z$(1)
 550 LET C$(Z)=X$(1)+Z$(1)
 560 LET X$(1)=E$(1)
 570 LET Z$(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 "CLERICAL SPELLS"
 650 LPRINT 
 660 LPRINT 
 670 FOR Z=1 TO 20
 680 LPRINT A$(Z)
 690 NEXT Z
 700 LPRINT 
 720 FOR Z=1 TO 16
 730 LPRINT B$(Z)
 740 NEXT Z
 750 LPRINT 
 770 FOR Z=1 TO 12
 780 LPRINT C$(Z)
 790 NEXT Z
 800 STOP 
9900 SAVE "1020%3"
9910 GOTO 610