Source Code
0 REM % %L%O%A%D%-%T%R%A%C%K%E%R% %B%Y% % %A%N%T%H%O%N%Y% %W%I%L%L%I%N%G% % % % % % %(%1%1%/%8%4%)% % % % %
5 REM
7 CLS
10 GOSUB VAL "5000"
20 REM % % % % % % % % % %F%A%S%T% % % % % % % %
90 LET WA=VAL "500"
100 PRINT AT 18,2;"INPUT YOUR STRENGTH"
110 PRINT AT 19,2;"IF ABOVE 18, INPUT AS 18.00"
115 PRINT AT 20,2;"IF 18/00, ENTER AS 18.999"
120 INPUT ST
130 IF ST<3 OR ST>25 THEN GOTO 120
140 GOSUB 5200
150 IF ST=INT PI THEN LET WA=WA-350
160 IF ST=4 OR ST=5 THEN LET WA=WA-250
170 IF ST=6 OR ST=7 THEN LET WA=WA-150
180 IF ST=12 OR ST=13 THEN LET WA=WA+100
190 IF ST=14 OR ST=15 THEN LET WA=WA+200
200 IF ST=16 THEN LET WA=WA+350
210 IF ST=17 THEN LET WA=WA+500
220 IF ST=18 THEN LET WA=WA+750
230 IF ST>18 AND ST<=18.5 THEN LET WA=WA+1000
240 IF ST>18.5 AND ST<=18.75 THEN LET WA=WA+1250
250 IF ST>18.75 AND ST<=18.9 THEN LET WA=WA+1500
260 IF ST>18.9 AND ST<=18.99 THEN LET WA=WA+2000
270 IF ST=18.999 THEN LET WA=WA+3000
280 IF ST=19 THEN LET WA=WA+4500
290 IF ST=20 THEN LET WA=WA+5000
300 IF ST=21 THEN LET WA=WA+6000
310 IF ST=22 THEN LET WA=WA+7500
320 IF ST=23 THEN LET WA=WA+9000
330 IF ST=24 THEN LET WA=WA+12000
340 IF ST=25 THEN LET WA=WA+15000
350 LET LC=WA
360 PRINT AT 18,2;"INPUT GOLD PIECE VALUE"
370 PRINT AT 19,2;"OF MONEY CARRIED"
380 INPUT GO
390 GOSUB 5200
400 LET WA=WA-(GO/10)
410 PRINT AT 18,2;"IDENTIFY WEAPONS CARRIED"
420 PRINT AT 19,2;"FROM THE FOLLOWING LIST"
430 PRINT AT 2,2;"(1) LONGSWORD"
440 PRINT AT 3,2;"(2) 2 HANDED SWORD"
450 PRINT AT 4,2;"(3) SHORT SWORD"
460 PRINT AT 5,2;"(4) QUARTER STAFF"
470 PRINT AT 6,2;"(5) SCIMITAR"
480 PRINT AT 7,2;"(6) MACE"
490 PRINT AT 8,2;"(7) JAVELIN"
500 PRINT AT 9,2;"(8) HAMMER"
510 PRINT AT 10,2;"(9) HALBERD"
520 PRINT AT 11,2;"(10) FLAIL"
530 PRINT AT 12,2;"(11) DAGGER"
540 PRINT AT 13,2;"(12) BOW AND ARROWS"
550 PRINT AT 14,5;"%E%N%T%E%R% %<%0%>% %W%H%E%N% %F%I%N%I%S%H%E%D"
560 INPUT WE
565 IF WE>12 OR WE<0 THEN GOTO 560
570 IF WE=1 THEN LET WA=WA-60
580 IF WE=2 THEN LET WA=WA-250
590 IF WE=3 OR WE=10 THEN LET WA=WA-35
600 IF WE=4 OR WE=6 OR WE=8 THEN LET WA=WA-50
610 IF WE=5 THEN LET WA=WA-40
630 IF WE=7 THEN LET WA=WA-20
650 IF WE=9 THEN LET WA=WA-175
670 IF WE=11 THEN LET WA=WA-10
680 IF WE=12 THEN LET WA=WA-90
690 IF WE=0 THEN GOTO 710
700 GOTO 560
710 GOSUB 5300
720 GOSUB 5200
730 PRINT AT 18,2;"IDENTIFY SUPPLIES CARRIED"
740 PRINT AT 19,2;"FROM THE FOLLOWING LIST"
750 PRINT AT 2,2;"(1) SPELL COMPONENTS/HERBS"
760 PRINT AT 3,2;"(2) IRON SPIKE"
770 PRINT AT 4,2;"(3) LEATHER PACK OR SACK"
780 PRINT AT 5,2;"(4) LEATHER POUCH OR BAG"
790 PRINT AT 6,2;"(5) LANTERN"
800 PRINT AT 7,2;"(6) FLASK OF OIL/HOLY WATER"
810 PRINT AT 8,2;"(7) 10 FOOT POLE"
820 PRINT AT 9,2;"(8) 50 FEET OF ROPE"
830 PRINT AT 10,2;"(9) WINE SKIN"
840 PRINT AT 11,2;"(10) THIEVES TOOLS"
850 PRINT AT 12,2;"(11) TINDER BOX"
860 PRINT AT 13,2;"(12) 1 WEEK OF RATIONS"
870 PRINT AT 14,5;"%E%N%T%E%R% %<%0%>% %W%H%E%N% %F%I%N%I%S%H%E%D"
880 INPUT SU
890 IF WE>12 OR WE<0 THEN GOTO 880
900 IF SU=1 OR SU=2 OR SU=4 OR SU=6 THEN LET WA=WA-10
910 IF SU=3 OR SU=9 THEN LET WA=WA-20
920 IF SU=5 OR SU=7 THEN LET WA=WA-50
930 IF SU=8 OR SU=10 OR SU=11 THEN LET WA=WA-40
940 IF SU=12 THEN LET WA=WA-70
950 IF SU=0 THEN GOTO 970
960 GOTO 880
970 GOSUB 5300
980 GOSUB 5200
990 REM %F%O%R% %C%L%O%T%H%I%N%G
\n1000 LET WA=WA-40
\n1010 PRINT AT 18,2;"SPECIFY ARMOR TYPE"
\n1020 PRINT AT 19,2;"FROM THE FOLLOWING LIST"
\n1030 PRINT AT 2,2;"(1) NONE OR MAGIC ARMOR"
\n1040 PRINT AT 3,2;"(2) ANY HELMET"
\n1050 PRINT AT 4,2;"(3) SMALL SHIELD/BUCKLER"
\n1060 PRINT AT 5,2;"(4) MEDIUM SHIELD"
\n1070 PRINT AT 6,2;"(5) LARGE SHIELD"
\n1080 PRINT AT 7,2;"(6) PLATE MAIL"
\n1090 PRINT AT 8,2;"(7) SPLINT/BANDED MAIL"
\n1100 PRINT AT 9,2;"(8) CHAIN/SCALE MAIL"
\n1110 PRINT AT 10,2;"(9) RING MAIL/STUDDED LEATHER"
\n1120 PRINT AT 11,2;"(10) LEATHER/PADDED ARMOR"
\n1130 PRINT AT 12,2;"(11) FIELD PLATE ARMOR"
\n1140 PRINT AT 14,5;"%E%N%T%E%R% %<%0%>% %W%H%E%N% %F%I%N%I%S%H%E%D"
\n1150 INPUT AR
\n1160 IF AR>12 OR AR<0 THEN GOTO 1150
\n1170 IF AR=1 THEN LET WA=WA-0
\n1180 IF AR=2 THEN LET WA=WA-30
\n1190 IF AR=3 OR AR=10 THEN LET WA=WA-50
\n1200 IF AR=4 OR AR=9 THEN LET WA=WA-100
\n1210 IF AR=5 OR AR=8 THEN LET WA=WA-150
\n1220 IF AR=6 THEN LET WA=WA-350
\n1230 IF AR=7 THEN LET WA=WA-250
\n1240 IF AR=11 THEN LET WA=WA-200
\n1250 IF AR=0 THEN GOTO 1270
\n1260 GOTO 1150
\n1270 GOSUB 5300
\n1280 GOSUB 5200
\n1290 PRINT AT 2,2;"YOUR LOAD CAPACITY IS"
\n1300 PRINT AT 3,2;INT (LC/10);" ";"POUNDS/";INT LC;" G.P. VALUE"
\n1310 PRINT AT 5,2;"YOU ARE NOW CARRYING"
\n1320 PRINT AT 6,2;INT ((LC-WA)/10);" POUNDS/";INT (LC-WA);" G.P. VALUE"
\n1330 PRINT AT 8,2;"YOU HAVE IN RESERVE"
\n1340 PRINT AT 9,2;INT (WA/10);" POUNDS/";INT WA;" G.P. VALUE"
\n1350 PRINT AT 11,2;"ENOUGH TO CARRY"
\n1360 PRINT AT 12,2;INT (WA*10);" COINS"
\n1370 LET MVT=(LC-WA)/10
\n1380 IF MVT>105 THEN PRINT AT 18,2;"3"" MVT/ROUND MAXIMUM (O.S.)"
\n1390 IF MVT>70 AND MVT<=105 THEN PRINT AT 18,2;"6"" MVT/ROUND MAXIMUM (O.S.)"
\n1400 IF MVT>35 AND MVT<=70 THEN PRINT AT 18,2;"9"" MVT/ROUND MAXIMUM (O.S.)"
\n1410 IF MVT<=35 THEN PRINT AT 18,2;"12"" MVT/ROUND MAXIMUM (O.S.)"
\n1420 PRINT AT 20,SGN PI;"%P%R%E%S%S% %A%N%Y% %K%E%Y% %F%O%R% %A%N%O%T%H%E%R% %R%U%N% "
\n1430 PAUSE 4E4
\n1440 CLS
\n1450 RUN
\n4999 STOP
\n5000 PRINT "\:'\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\':"
\n5010 FOR Z=SGN PI TO 20
\n5020 PRINT TAB NOT PI;"% ";TAB 31;"% ";
\n5030 NEXT Z
\n5040 PRINT "\:.\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\.:"
\n5050 PRINT AT 16,NOT PI;"\:'"
\n5051 PRINT AT 15,NOT PI;"\:'"
\n5060 FOR Z=SGN PI TO 30
\n5065 PRINT AT 15,Z;"\,,"
\n5070 PRINT AT 16,Z;"\;;"
\n5080 NEXT Z
\n5090 PRINT AT 15,CODE STR$ PI;"\':"
\n5100 PRINT AT 16,CODE STR$ PI;"\':"
\n5110 PRINT AT NOT PI,10;"%L%O%A%D%-%T%R%A%C%K%E%R"
\n5120 RETURN
\n5130 STOP
\n5200 FOR Z=17 TO 20
\n5210 PRINT AT Z,SGN PI;" "
\n5220 NEXT Z
\n5230 RETURN
\n5240 STOP
\n5300 FOR Z=1 TO 14
\n5310 PRINT AT Z,SGN PI;" "
\n5320 NEXT Z
\n5330 RETURN
\n5340 STOP
\n5500 CLEAR
\n5510 SAVE "1020%8"
\n5520 RUN
