Posts: 6,419
Threads: 74
Joined: Mar 2002
Wow, that should be one of the first BASIC versions ever...
To know my "history", go here->
http://imaginatica.us.es/~wopr2k/speccy/oldies.html
Posts: 1,956
Threads: 65
Joined: Jun 2003
Yes, Nathan, General Electric´s Basic version was probably one of the first implementations of the original Dartmouth Basic of 1965. You were forced to use the LET.
BTW, I like the little puppy dog in your Phantomas 5.
*****
Posts: 729
Threads: 104
Joined: Jan 2003
the version of basic moneo used and the one used on the trash were pretty close, chronologically. After all, MS basic is based on DECbasic code stolen from dumpsters.
Posts: 6,419
Threads: 74
Joined: Mar 2002
Yeah, the basic version I used to code these games on the ZX Spectrum used LETs and stuff like that as well. SINCLAIR BASIC was hell and heaven at the same time, it was designed to perform many things with just 80 keywords.
This is a short snipped from one of my old games:
Code:
100 REM MOVIMIENTO
102 IF sal=1 AND nu>0 AND w<20 THEN IF ATTR (w+1,a)<>bgc OR ATTR (w+1,a+1)<>bgc THEN LET sal=0: RETURN
110 IF sal=1 THEN GO TO 200
115 IF ATTR (w+1,a)=bgc AND ATTR (w+1,a+1)=bgc THEN LET w=w+1: GO SUB 700: RETURN
117 IF IN 57342=189 AND facing=0 THEN LET facing=1: PRINT AT w-1,a; PAPER ps; INK is;"&'";AT w,a;"()": RETURN
120 IF IN 57342=189 THEN IF a>0 THEN IF ATTR (w-1,a-1)=bgc AND ATTR (w,a-1)=bgc THEN LET a=a-1: LET facing=1: GO SUB 900: GO SUB 710
127 IF IN 57342=190 AND facing=1 THEN LET facing=0: PRINT AT w-1,a; PAPER ps; INK is;" !";AT w,a;"""#": RETURN
130 IF IN 57342=190 THEN IF a<30 THEN IF ATTR (w-1,a+2)=bgc AND ATTR (w,a+2)=bgc THEN LET facing=0: GO SUB 900: GO SUB 720: LET a=a+1
140 IF IN 64510=190 THEN IF ATTR (w+1,a)<>bgc OR ATTR (w+1,a+1)<>bgc THEN LET sal=1: LET nu=0
150 RETURN
It makes you go dizzy :o
Posts: 1,407
Threads: 117
Joined: Dec 2002
But you could do that (i forgot Spectrum's exact syntax):
INPUT "Input the function of x you want to plot" a$
FOR x=-10 TO 10 STEP .1
PSET x,val$(a$),color
NEXT
And you had the function plotted!The language allowed you to use the expression evaluator of the language from a Basic program...
Antoni
Posts: 6,419
Threads: 74
Joined: Mar 2002
Yeah, that was a great feature, but I think the correct syntax was:
Code:
10 INPUT "Input the function of x you want to plot"; a$
20 FOR x=-10 TO 10 STEP .1
30 PLOT INK colo; 25*x, val(a$)
40 NEXT x
That basic was so nifty. I've always thought on writing a Sinclair Basic interpreter for the PC, maybe if I find the time... some day...
Posts: 838
Threads: 17
Joined: Jan 2002
1995 (OK I'm not as old as you guys :roll
, on a PC (don't remember exact model). My dad was doing some programming for his work, and I though it was cool he could decide what the computer should do like that, so I wanted to learn, and he brought up qbasic for me, and thought me some stuff. My first program calculated how many money he should pay me each month
. Later I taught him VB...
url=http://www.copy-pasta.com]CopyPasta[/url] -
FilePasta
Posts: 1,407
Threads: 117
Joined: Dec 2002
Posts: 6,419
Threads: 74
Joined: Mar 2002
Lol - What I say: "Excellent graphics only for trained eyes".
It's a pitty that I got my speccy in 1988. I missed much of the "good times".