Basic ZX CSSCGC RetroWars -SEND ok

Buy a Retro Machine AND Sell it FOR more money in another place simulator! (OR BARMASIFMMIAPS )

Introduction
------------
Thank you FOR buying "Buy a Retro Machine and Sell it for more money in another place simulator!".
This is an amazing game that is NOT based in any other game you ever played. NOT even DOS DopeWars!

The story so far
----------------
It "Buy a Retro Machine and Sell it for more money in another place simulator!" you are Jason Slartibartslow. A guy that spend most of his life entering in AND out of mental institutions. The reason : he learned in a very young age the true story behind Santa Claws AND the Easter Bunny [1].
This game starts with you -Jason- just having stole 1000$ from a elder guy! Inside the institutions you have thought AND planned your NEXT steps in your life AND this was the first STEP!
The second STEP was TO make the 1000$ you stole more! You know that you must buy something AND sell it TO crazy person FOR a crazy ammount of money...
From your experience you know that most crazy people will want spend much money on 3 things:
1.Drugs
2.Matchboxes
3.Shoelaces
After a lot of thinking you decided TO throw a dice TO decide. You throwed a 4! Since you didn't know what option was 4 you decided to buy and sell retro computers[2]!

Game
----
In "Buy a Retro Machine and Sell it for more money in another place simulator!" you start with 1000$ in the city that you woke up this morning AND looking TO buy a retro computer so you can sell it in a more expensive price. In each city you are presented with an easy-to-understand menu where you select IF you want TO Buy Sell Of Travel. TO buy you must press 'b' , to Sell you must press 's' and to travel you must press -as you have already guessed- 'm'. Then you select item,quantity or location from an other -easy-to-understand user interface.

Features
--------
-The best game you've ever played with the name "Buy a Retro Machine and Sell it for more money in another place simulator!"[3]
-The game features 5 unique locations. Don't worry if you don't have enough movey in real life. In this game you will visit these locations and feel like you realy travel
-You get 1000$ free in the start of the game
-You owe 1000$ in the start of the game -but you can ignore them!
-Traveling between location is free!
-Like real life, the game does NOT END. You can play it AS much AND AS LONG AS you like!

Known Issues
------------
-I didn't write this game in the 80s!
-All other issues have moved in the "features" sction.
-IF you get a negative price don't panic!

Spoilers/Hints
--------------
Don't read the next lines!!!
---Try TO sell an item in a higher price that you bought!!!---


[1] : FOR more information about these stories check the manual of the two amazing games named "Find Santa" AND "Find the Easter Bunny". Also, you could check the "Find the Book" which is also amazing. All of them can be bought from itch.io OR IF you are cheapskate you can just find them AS CSSCGC 2021 entries.
[2] : Retro computer: a computer that someone bought -during PI times (Pre-Internet) because he thought it was the best but THEN he found out that there were much better models in the market!
[3] : Shorter game name in "BARMASIFMMIAPS".
----------------------------------

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 L$=Location names,(note P:current price)
3 REM To DO : 1.Change Prices between cities,2.Fix Move (don t show Quantity questions  before travel) ,3.End in 30 days
4 PRINT "WELCOME TO "'"Buy a Retro Machine and Sell it for more money in another place simulator!":FOR I=1 TO 100 :PAPER RND*7:BORDER RND*7:NEXT I :PAUSE 0
8 REM Initialize game state and vars
9 PAPER 4:INK 3 :BORDER 2
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" THEN INPUT "Type=";G: INPUT "Qty=";Q:LET H=G:
60 IF I$="m" THEN GOSUB 500 : REM TRAVEL
70 IF I$="b" THEN GOSUB 600 : REM BUY
80 IF I$="s" THEN GOSUB 700 : REM SELL
100 GO TO 30

500 REM Travel Routine
510 CLS
520 FOR X=1 TO 5: PRINT X;"- ";L$(X): NEXT X:
530 INPUT "Where to? (1-5)";F: LET T=T+1: LET D=D*1.06:
540 FOR X=1 TO ITEMS: LET SIGN=1
550 IF(RND*10)<5 THEN LET SIGN=-1 : REM reduce price
560 LET P(X)=(RND*1+0.1*SIGN )*B(X): REM change item price

580 NEXT X

599 RETURN

600 REM Buying routine

610 LET X=Q*P(H): IF X>C OR P(H)=0 OR U(H)+Q>100 THEN BEEP 1,1: GO TO 63
620 LET U(H)=U(H)+Q: LET C=C-(Q*P(H)):
699 RETURN


700 REM Selling routine
710 IF Q>U(H) THEN BEEP 1,1: RETURN
720 LET U(H)=U(H)-Q: LET C=C+(Q*P(H))
799 RETURN

800 REM Bank routine NOT Done yet