1984
For anyone interested in Locomotive BASIC the program is listed at the end of the video.
https://www.youtube.com/watch?v=pgbxQdnfqT8 (https://www.youtube.com/watch?v=pgbxQdnfqT8)
Not emulated - original hardware and software
Please note the aspect ratio for this YouTube video is 16:9 but the CPC monitor
has an aspect ratio of 4:3 so you may wish to adjust your viewing device accordingly.
I've seen a few of these games on CPC-POWER, though I don't know whose ripping off whom when it comes to 'Solitaire' the card game, otherwise known as 'Patience' and this Solitaire, which after some digging though all Solitaire card game imagery of the Google archives, discovered this game is based on a Board Game! :D
As I mentioned a few games on CPC-POWER, though not this version and it's eariler than all the others, so I guess it was in a book from 1984. Watching the game in action, I thought it was Chess being played on a Cross Board! :D
Is it possible that you can make an ASCII file of your basic programs and list them here?
If there is a save option or program/tool that can do this (and someone sends it to me) on the CPC then I will :)
SAVE"SOL.ASC",A will create that ASCII file, though I still don't know how that will get it on here. :-X
Yes, I also was wondering what benefit that would bring?
Quote from: ComSoft6128 on 06:46, 08 June 20
Yes, I also was was wondering what benefit that would bring?
If you had one of those Proofreader programmes somewhere, you could List the code with the appropriate Code following it.
AA started with Pat McDonald's Type-Writer, though it was a very ROM unfriendly programme, later they had Simon Forrester's TypeChecker, which is better in that regard.
It would still involve typing in the code, but at least we could check the code, so matches with the original.
You can connect a 3.5 drive to your amstrad and save ascii files to disk.
Installing the drive on an "old" PC then it should be possible to
read them on the PC, or better get one of duke's wifi card.
https://www.cpcwiki.eu/forum/amstrad-cpc-hardware/amstrad-cpc-wifi/
Maybe you can use this program 2in1 ;)
https://www.cpc-power.com/index.php?page=detail&onglet=pub&num=15530
Hi @Johnny Olsen (https://www.cpcwiki.eu/forum/index.php?action=profile;u=118) ,
I don't have an old PC here but if you (or anyone else) would like copies of these programs on a PC disk - no problem - just send me a 3.5" DD disk and I will use this to copy them to it:
http://www.cpcwiki.eu/index.php/DosCopy (http://www.cpcwiki.eu/index.php/DosCopy)
Thanks for the offer but I am not sure I have some 3.5 disk but if I find
some I will contact you.
Anyway now I have to say it, I love this forum with its many nice people
who are always willing to help each other. In fact, I wonder that I trust
people here more than many of the people I meet in real life. I've sent
programs to Loic, not knowing if I ever got them back and Bryce has been
shopping on German ebay for me, weird we do it, we don't even know each
other. Incredible what a tiny, unbelievable 35 year old computer can do
to us.
Maybe I should donate some money to this forum, it's cheap entertainment.
I still use 3.5" floppies. I can send one or two to ComSoft6128 if that can help.
Computer wins... ;)
I remember that I had a Solitaire solver in Pascal and printed out the solution to try the moves with the physical game.
No one would type in 1984 Solitaire from the video today, but if someone gets it on disk and puts it in the forum, I will also include it in the CPCBasic apps collection.
There is already a Solitaire clone, but only in German:
https://benchmarko.github.io/CPCBasic/cpcbasic.html?database=apps&example=games/solitair
Pressing J <any key> J will also show a demo mode.
Quote from: mv on 11:51, 12 June 20No one would type in 1984 Solitaire from the video today, but if someone gets it on disk and puts it in the forum,
I offered to type-in since I'm a fast type and can screenshot videos.
The concern is how accurate I can type-in that Solitaire game or if @ComSoft6128 (https://www.cpcwiki.eu/forum/index.php?action=profile;u=2226) is able to get a hold of Checksum Proofreader, the proofreader would make sure I've typed in the listing exactly, though I also realise @ComSoft6128 (https://www.cpcwiki.eu/forum/index.php?action=profile;u=2226) has 100s of DSKs, so tracking one down maybe difficult. :(
If anyone is interested best to send a disc/disk.
I can guarantee that I don't have Checksum Proofreader - "back in the day" and not being being a programmer meant that my interest was in the practical/day to day use of these programs not the code itself.
Cheers,
Peter
Quote from: ComSoft6128 on 06:44, 13 June 20If anyone is interested best to send a disc/disk. I can guarantee that I don't have Checksum Proofreader - "back in the day" and not being being a programmer meant that my interest was in the practical/day to day use of these programs not the code itself.Cheers,Peter
Yeah their primary function was checking the codes matched when typing in type-ins, AA had Pat McDonalds Typewriter at least once I recall, which was the Christmas 1990 Issue with the Untouchables (which came with a bug I seem to recall), how it lasted so long it wasn't improved until Issue 91, guessing people weren't using ROMs a lot until then, which was the problem with Typewriter, I'd only noticed that when I started using Emulators with ROMs attached.
Type-ins were on the Covertape when Covertapes were a monthly thing at AA, which started with the Covertape from AA80 including Type-ins from AA79. This went on until AA90 which would of had AA89 Type-Ins, so if the Checksum programme was on them it would of been Typewriter. Unsure what they had on the covertape of Issue 84 after duplicating the AA82 type-ins in AA83. :D I think it was the issue they had Defenders of the Earth and that 2 player Tetris clone - Deldriss.
Or list out the program and scan/photograh it.
If anyone interested, I can send a disk to ComSoft, I will publish the image of the returned disk. Just tell.
Yes please make a copy of the disc. The problem is that ComSoft6128 seems to have
lots of interesting disk, so it might be better to send an old PC to him so he can
upload them to the internet. :D
Quote from: Johnny Olsen on 00:13, 17 June 20
Yes please make a copy of the disc. The problem is that ComSoft6128 seems to have
lots of interesting disk, so it might be better to send an old PC to him so he can
upload them to the internet. :D
I'm in the process of getting rid of a lot of stuff here so an "old" PC would not be welcomed by "she who must be obeyed" :o
So the easiest/quickest way is for me to send a disc/disk to @mr.freeze (https://www.cpcwiki.eu/forum/index.php?action=profile;u=3105) - please PM me your address and I'll get it off to you in about a week.
Cheers,
Peter
PM sent. I will use the PPC512 to dump the disk, so it stays in the family.
Cool,
Now it seems a waste just to send one program so have a look at the catalogue of the disk in the video and see if there is anything else that is of interest.
Cheers,
Peter
Quote from: ComSoft6128 on 15:58, 18 June 20
Cool,
Now it seems a waste just to send one program so have a look at the catalogue of the disk in the video and see if there is anything else that is of interest.
Cheers,
Peter
We want everything and more! I will return you the disks and reimburse you of the postage costs.
Quote from: mr.freeze on 17:28, 18 June 20
We want everything and more! I will return you the disks and reimburse you of the postage costs.
Hi @mr.freeze (https://www.cpcwiki.eu/forum/index.php?action=profile;u=3105),
You need to tell me exactly what programs you are looking for and I will then copy them to a PC format disk.
Quote from: ComSoft6128 on 06:13, 19 June 20
Hi @mr.freeze (https://www.cpcwiki.eu/forum/index.php?action=profile;u=3105),
You need to tell me exactly what programs you are looking for and I will then copy them to a PC format disk.
But all these files make me curious. I'm in Johnny 5 mode: more input!
And I'm in Borg mode - "You will comply" ;)
https://en.wikipedia.org/wiki/Borg (https://en.wikipedia.org/wiki/Borg)
I don't understand. I prefer to withdraw.
If @AMSDOS (https://www.cpcwiki.eu/forum/index.php?action=profile;u=330) type-in the program I offer to proof-read it.
Quote from: mr.freeze on 15:36, 21 June 20
If @AMSDOS (https://www.cpcwiki.eu/forum/index.php?action=profile;u=330) type-in the program I offer to proof-read it.
Okay! ;D
10 REM ---------------------------------
20 REM SOLITAIRE
30 REM ---------------------------------
40 MODE 1:BORDER 16:INK 0,16:INK 1,26:INK 2,0:INK 3,6
50 GOSUB 920
60 REM ---------- PRINT BOARD ----------
70 WINDOW 1,23,1,23
80 PAPER 0:CLS:PAPER 2:PEN 1
90 FOR i=1 TO 23 STEP 22:FOR j=1 TO 23
100 LOCATE j,i:IF (j+3)/3=(j+3)\3 THEN PRINT CHR$(96+j\3) ELSE PRINT" ";
110 LOCATE i,j:IF (j+3)/3=(j+3)\3 THEN PRINT USING "#";8-j\3; ELSE PRINT" ";
120 NEXT:NEXT
130 FOR i=2 TO 20 STEP 3:FOR j=2 TO 20 STEP 3
140 WINDOW j,j+2,i,i+2
150 IF (i<8 OR i>14) AND (j<8 OR j>14) THEN PAPER 2:CLS ELSE PAPER 1:PEN 2:PRINT CHR$(&87)CHR$(&83)CHR$(&8B)CHR$(&85)CHR$(&CA)CHR$(&8A)CHR$(&8D)CHR$(&8C)CHR$(&8E);
160 NEXT:NEXT
170 WINDOW p,p,q,q:PAPER 3:PRINT" "
180 EVERY 20 GOSUB 870
190 WINDOW 26,40,1,23:PAPER 2:CLS:PEN 1:PRINT r$" SOLITAIRE",R$:WINDOW 26,40,5,23:LOCATE 1,18
200 g=g+1
210 REM --------- PLAYER OPTION --------
220 PRINT "DO YOU WANT THE COMPUTER TO MAKE THE MOVES?","KEY [Y] OR [N]"CHR$(7);
230 I$=INKEY$:I$=UPPER$(I$):IF I$<>"N" AND I$<>"Y" THEN 230
240 CLS:PRINT" M O V E S":LOCATE 1,14:PRINT R$" GAME"SPC(5)CHR$(&18);:PRINT USING "##";g;:PRINT CHR$(&18)R$" PEGS"," REMOVED "CHR$(&18);:PRINT USING "##";t;:PRINT CHR$(&18)R$CHR$(&18);
250 c=1-(I$="N"):ON c GOSUB 360,480
260 REM
270 REM ----- END OF GAME SEQUENCE -----
280 v=1:WINDOW 1,40,25,25:PAPER 0:EI:IF e THEN 310
290 IF I$="N" THEN PEN 3:IF t<31 THEN PRINT CHR$(&EE);" NO LEGAL MOVES LEFT ";CHR$(&EE) ELSE PRINT CHR$(&EE);" W E L L D O N E ! ";CHR$(&EE)
300 FOR i=1 TO 6:FOR j=1 TO 6:SOUND 1,s(j),7,5:NEXT:NEXT
310 CLS:PEN 2:PRINT"WOULD YOU LIKE ANOTHER GAME? [Y] OR [N]"CHR$(7);
320 I$=INKEY$:I$=UPPER$(I$):IF I$<>"Y" AND I$<>"N" THEN 320
330 IF I$="N" THEN MODE 2:INK 0,0:INK 1,25:BORDER 0:PAPER 0:PEN 1:END
340 MODE 1:INK 3,6:GOSUB 950
350 GOTO 60
360 REM ------- COMPUTER'S MOVES -------
370 RANDOMIZE TIME:d=INT(RND*4)
380 FOR t=0 TO 30
390 WINDOW p,p,q,q:PAPER 1:PEN 2:PRINT P$;:v=0
400 n1=n:p1=p:q1=q
410 p=(ASC(MID$(d$(d),t*4+1,1)))-66:q=(ASC(MID$(d$(d),t*4+2,1)))-66
420 p2=(ASC(MID$(d$(d),t*4+3,1)))-66:q2=(ASC(MID$(d$(d),t*4+4,1)))-66
430 n=a(q/3,p/3):P1$=CHR$(128-74*(n1=1)-15*(n1=0)):P$=CHR$(128-74*(n=1)-15*(n=0))
440 WINDOW p1,p1,q1,q1:PAPER 1:PEN 2:PRINT p1$;:WINDOW p,p,q,q:PRINT CHR$(&18)P$CHR$(&18);
450 FOR i=0 TO 500:NEXT
460 GOSUB 620
470 NEXT:RETURN
480 REM -------- PLAYER'S MOVES --------
490 WHILE INKEY(63)=-1 AND e
500 DI:WINDOW p,p,q,q:PAPER 1:PEN 2:PRINT P$;:EI
510 n1=n:p1=p:q1=q:v=0
520 IF INKEY$="" THEN 520
530 p=p-3*(INKEY(1)=0)+3*(INKEY(8)=0):q=q-3*(INKEY(2)=0)+3*(INKEY(0)=0)
540 p2=(INKEY(8)=32)-(INKEY(1)=32):q2=(INKEY(0)=32)-(INKEY(2)=32)
550 IF p<3 OR p<9 AND (q<9 OR q>15) OR p>15 AND (q<0 OR q>15) OR p>21 OR q<3 OR q<9 AND (p<9 OR p>15) OR q>15 AND (p<9 OR p>15) OR q>21 THEN p=p1:q=q1:GOTO 520
560 IF p=3 AND p2=-1 OR p=21 AND p2=1 OR q=3 AND q2=-1 OR q=21 AND q2=1 THEN 520
570 n=a(q/3,p/3):P1$=CHR$(128-74*(n1=1)-15)*(n1=0)):P$=CHR$(128-74*(n=1)-15*(n=0))
580 DI:WINDOW p1,p1,q1,q1:PAPER 1:PEN 2:PRINT P1$;:WINDOW p,p,q,q:PRINT P$;:EI
590 IF ABS(p2)=1 XOR ABS(q2)=1 THEN GOSUB 620
600 WEND
610 RETURN
620 REM ---- CHECK VALIDITY OF MOVE ----
630 n2=a((q/3+2*q2),(p/3+2*p2)):n3=a((q/3+q2),(p/3+p2))
640 IF n=1 AND n2=-1 AND n3=1 THEN 680
650 v=1:WINDOW 26,40,25,25:PAPER 0:PEN 3:PRINT"!NOT PERMITTED!";
660 FOR i=0 TO 4:SOUND 1,s(i),7,5:NEXT:FOR i=0 TO 500:NEXT:DI:CLS
670 RETURN
680 REM --------- EXECUTE MOVE ---------
690 a(q/3,p/3)=-1:a((q/3+q2),(p/3+p2))=-1:a((q/3+2*q2),(p/3+2*p2))=1
700 p3=p+3*p2:q3=q+3*q2:px=p2:qx=q2:IF I$="N" THEN t=t+1
710 p2=p+6*p2:q2=q+6*q2
720 DI:WINDOW p,p,q,q:PAPER 1:PEN 2:PRINT" ";:WINDOW p3,p3,q3,q3:PRINT" ";:WINDOW p2,p2,q2,q2:PRINT CHR$(&CA);
730 REM
740 REM ---------- PRINT MOVE ----------
750 WINDOW x,x+2,y,y:PAPER 2:PEN 1:PRINT CHR$(96+p/3);:PRINT USING "#";8-q/3;:PRINT CHR$(240-(qx<>-1)-(ABS(px)=1)-(px=1));:WINDOW 37,38,22,22:PRINT CHR$(&18);:PRINT USING "##";t-(I$="Y");
760 s(t)=INT(125000/(440*(2^(oct+(10-nt)/12)))+0.5):SOUND 1,s(t),7,5
770 nt=nt-1:IF nt=0 THEN oct=oct+1:nt=12
780 p=p2:q=q2:y=y+1:IF y=17-(x=36) THEN x=x+4:y=7
790 REM
800 REM -- DO MORE LEGAL MOVES EXIST? --
810 e=0
820 FOR i=1 TO 7:FOR j=1 TO 7
830 IF a(i,j)<>1 OR e=1 THEN 850
840 IF a(i-1,j)+a(i+1,j)=1 OR a(i,j-1)+a(i,j)+a(i,j+1)=1 THEN e=1
850 NEXT:NEXT
860 RETURN
870 REM ---- FLASHING CURSOR & TEXT ----
880 IF I$="Y" THEN RETURN
890 n=a(q/3,p/3):P$=CHR$(128-74*(n=1)-15*(n=0))
900 IF v THEN z=NOT z:INK 3,6-20*(NOT z) ELSE PRINT CHR$(&18)P$;
910 RETURN
920 REM ---------- INITIALISE ----------
930 DIM a(8,8),s(31),D$(3):s(0)=237
940 FOR i=0 TO 3:READ D$(i):NEXT
950 e=1:n=-1:nt=6:oct=0:p=12:q=12:t=0:v=1:x=28:y=7:z=0
960 P$=" ":R$=STRING$(&F,CHR$(&9A))
970 FOR i=1 TO 7:FOR j=3 TO 5:a(i,j)=1:NEXT:NEXT
980 FOR i=3 TO 5:FOR j=1 TO 7:a(i,j)=1:NEXT:NEXT:a(4,4)=-1
990 RETURN
1000 DATA NHBCTKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABHQCBKWBAKNBCQWABKWBAKHBCEKCBNKABEQBAEKCBNQBANKABHKBCHQCBNQCBTNABKNCBQKBCTQABNTBA
1010 DATA NTBAHQCBKWBAKNBCQWABKHBCEKCBNKABEQBAEKCBTKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABNKBCNQCBTQBATKABNKABHNCBQNABKWBAKQBAWKCBNHBC
1020 DATA TNABQTBAWQABNQCBWKBCHQCBKWBAKNBCQEABKWBAKHBCEKCBNKABEQBAEKCBTKABQEBCQNBAKECBQEBCKNCBQNBAQHABKHBCKNBCNTBANKBCWQABQQABKTBAHNCB
1030 DATA HNCBKHBCEKCBNKABEQBATKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABHQCBKWBAKNBCQEABKWBAQNABKNBCKTCBQTBAQNBANHBCNQBAEKCBKKCBQHBCTNAB
1040 ' (C) 1984 Philip Jimenez
Quote from: AMSDOS on 09:30, 22 June 20
Okay! ;D
Great! I'll work on that this weekend.
This is my errata:
220 PRINT "DO YOU WANT THE COMPUTER TO MAKE THE MOVES?","KEY [Y] OR [N]"CHR$(7);
310 CLS:PEN 2:PRINT"WOULD YOU LIKE ANOTHER GAME? [Y] OR [N]"CHR$(7);
550 IF p<3 OR p<9 AND (q<9 OR q>15) OR p>15 AND (q<9 OR q>15) OR p>21 OR q<3 OR q<9 AND (p<9 OR p>15) OR q>15 AND (p<9 OR p>15) OR q>21 THEN p=p1:q=q1:GOTO 520
570 n=a(q/3,p/3):P1$=CHR$(128-74*(n1=1)-15*(n1=0))$=CHR$(128-74*(n=1)-15*(n=0))
840 IF a(i-1,j)+a(i,j)+a(i+1,j)=1 OR a(i,j-1)+a(i,j)+a(i,j+1)=1 THEN e=1
1010 DATA NTBAHQCBKWBAKNBCQWABKHBCEKCBNKABEQBAEKCBTKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABNKBCNQCBTQBATKABNKABHNCBQNABKWBAKQBAHKCBNHBC
1020 DATA TNABQTBAWQABNQCBWKBCHQCBKWBAKNBCQWABKWBAKHBCEKCBNKABEQBAEKCBTKABQEBCQNBAKECBQEBCKNCBQNBAQHABKHBCKNBCNTBANKBCWQABQQABKTBAHNCB
1030 DATA HNCBKHBCEKCBNKABEQBATKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABHQCBKWBAKNBCQWABKWBAQNABKNBCKTCBQTBAQNBANHBCNQBAEKCBKKCBQHBCTNAB
220 and 310: string format
550: 0 instead of 9
570: ) too many
840 a subexpression missing
1010: 8th character from the right W -> H
1020: 34th character from the left E -> W
1030: 51th charater from the right E -> W
Edit: Make the line 310 appears on its own line and fix the error on line 1010 mentioned in the next post. I first thought it was my beer but I think that this Website doesn't manage well Unix line endings.
I knew I shouldn't have accepted this third Chimay bleue. Line 1010 reads like this :1010 DATA NTBAHQCBKWBAKNBCQWABKHBCEKCBNKABEQBAEKCBTKABQEBCQNBAKECBQEBCQTBAWQABNQCBWKBCWQABNKBCNQCBTQBATKABNKABHNCBQNABKWBAKQBAHKCBNHBC
@mr.freeze (https://www.cpcwiki.eu/forum/index.php?action=profile;u=3105) you have fixed an error in line 570 but have made another.
570 n=a(q/3,p/3):P1$=CHR$(128-74*(n1=1)-15)*(n1=0)): P$=CHR$(128-74*(n=1)-15*(n=0))
570 n=a(q/3,p/3):P1$=CHR$(128-74*(n1=1)-15*(n1=0))$=CHR$(128-74*(n=1)-15*(n=0))
I have corrected the error and made a dsk file.
When I uploaded this I discovered that ": P" gives a smiley :P so it's not your fault.
I just found out that solitaire comes from the book "Mindbending Games For The Amstrad CPC 464 - Philip Laird" scanned by ACME.
You can find it here.
https://acpc.me/?language=eng#ACME/LIVRES/[ENG]ENGLISH