Basic ZX CSSCGC RetroWars Extensions ONLY

Basic ZX CSSCGC RetroWars Extensions ONLY______________________________________
10 LET ITEMS=6: DATA "ZX",175,"Amstrad",250,"C64",595,"AMIGA",1000,"MSX",550,"Atari ST",999
21 DATA "London","Dallas","Athens","Paris","Berlin"

10 LET ITEMS=6: DATA "ZX",175,"Amstrad",250,"C64",595,"AMIGA",1000,"MSX",550,"Atari ST",999
21 DATA "London","Dallas","Athens","Paris","Berlin"

________________________________________
1 REM A=ITEMS, C=cash, D=debt, U=holding qty, B=base price $, P=pricing, F=cur location,T=day, I=int rate
2 REM To DO : 1.Change Prices between cities,2.Fix Move (don't show Quanity before travel) ,3.End in 30 days
9 REM Initialize game state and vars
10 LET ITEMS=6: DATA "ZX",175,"Amstrad",250,"C64",595,"AMIGA",1000,"MSX",550,"Atari ST",999
11 LET D=1000: LET C=D: LET T=1: LET F=5: DIM A$(ITEMS,8): DIM B(ITEMS): DIM P(ITEMS): DIM L$(5,8): DIM U(ITEMS)
12 FOR X=1 TO ITEMS: READ A$(X): READ B(X): NEXT X
20 FOR X=1 TO ITEMS: LET P(X)=(RND*1+0.1)*B(X): NEXT X
21 DATA "London","Dallas","Athens","Paris","Berlin"
22 FOR X=1 TO 5: READ L$(X): NEXT X
30 CLS
31 PRINT "---";L$(F);"---"'"Day:";T;"  Cash:";C;" Owe:";D:
32 PRINT "Holding","For Sale"
35 FOR X=1 TO ITEMS: PRINT X;") ";A$(X);:
37 PRINT ;"["; U(X);: PRINT "] $";(STR$ P(X))(1 TO 5):
39 NEXT X
40 PRINT "";:
41 INPUT "(B)uy, (S)ell, (M)ove";I$:
42 IF I$="b" OR I$="s" OR I$="m" THEN INPUT "Type=";G: INPUT "Qty=";Q:
43 LET H=G: IF I$="b" THEN GO TO 60
44 IF I$="s" THEN GO TO 70
50 IF I$="m" THEN CLS :
51 FOR X=1 TO 5: PRINT X;"- ";L$(X): NEXT X:
52 INPUT "Where to? (1-5)";F: LET T=T+1: LET D=D*1.06:
54 GO TO 30
59 REM Buying routine
60 LET X=Q*P(H): IF X>C OR P(H)=0 OR U(H)+Q>100 THEN BEEP 1,1: GO TO 63
61 LET U(H)=U(H)+Q: LET C=C-(Q*P(H)):
63 GO TO 30
69 REM Selling routine
70 IF Q>U(H) THEN BEEP 1,1: GO TO 73
71 LET U(H)=U(H)-Q: LET C=C+(Q*P(H))
73 GO TO 30
79 REM Bank routine NOT Done yet