basicdoc: major doc update

assets/disk0/home/basic/hamurabi.bas

@@ -1,28 +1,14 @@
 10 PRINT SPC(32);"HAMURABI"
 20 PRINT SPC(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
-30 PRINT
-31 PRINT
-32 PRINT
+30 PRINT:PRINT:PRINT
 80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
-90 PRINT "FOR A TEN-YEAR TERM OF OFFICE."
-91 PRINT
-95 D1=0
-96 P1=0
-100 Z=0
-101 P=95
-102 S=2800
-103 H=3000
-104 E=H-S
-110 Y=3
-111 A=H/Y
-112 I=5
-113 Q=1
+90 PRINT "FOR A TEN-YEAR TERM OF OFFICE.":PRINT
+95 D1=0:P1=0
+100 Z=0:P=95:S=2800:H=3000:E=H-S
+110 Y=3:A=H/Y:I=5:Q=1
 210 D=0
-215 PRINT
-216 PRINT
-217 PRINT "HAMURABI:  I BEG TO REPORT TO YOU,"
-218 Z=Z+1
-219 PRINT "IN YEAR ";Z;", ";D;" PEOPLE STARVED, ";I;" CAME TO THE CITY,"
+215 PRINT:PRINT:PRINT "HAMURABI:  I BEG TO REPORT TO YOU,":Z=Z+1
+217 PRINT "IN YEAR ";Z;", ";D;" PEOPLE STARVED, ";I;" CAME TO THE CITY,"
 220 P=P+I
 227 IF Q>0 THEN GOTO 230
 228 P=INT(P/2)
@@ -44,9 +30,7 @@
 324 GOSUB 710
 325 GOTO 320
 330 IF Q==0 THEN GOTO 340
-331 A=A+Q
-332 S=S-Y*Q
-333 C=0
+331 A=A+Q:S=S-Y*Q:C=0
 334 GOTO 400
 340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
 341 INPUT Q
@@ -54,9 +38,7 @@
 343 IF Q<A THEN GOTO 350
 344 GOSUB 720
 345 GOTO 340
-350 A=A-Q
-351 S=S+Y*Q
-352 C=0
+350 A=A-Q:S=S+Y*Q:C=0
 400 PRINT
 410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
 411 INPUT Q
@@ -65,9 +47,7 @@
 420 IF Q<=S THEN GOTO 430
 421 GOSUB 710
 422 GOTO 410
-430 S=S-Q
-431 C=1
-432 PRINT
+430 S=S-Q:C=1:PRINT
 440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
 441 INPUT D
 442 IF D==0 THEN GOTO 511
@@ -87,9 +67,7 @@
 510 S=S-INT(D/2)
 511 GOSUB 800
 512 REM *** A BOUNTIFUL HARVEST!
-515 Y=C
-516 H=D*Y
-517 E=0
+515 Y=C:H=D*Y:E=0
 521 GOSUB 800
 522 IF INT(C/2)<>C/2 THEN GOTO 530
 523 REM *** RATS ARE RUNNING WILD!!