[vcf-midatlantic] Anyone have a hardcopy of "More Basic Computer Games"

Corey Cohen applecorey at optonline.net
Sat Dec 17 17:16:25 EST 2016


Well I got it typed in and it works great, MITS-BASIC 8k 4.0 on Rev-0 Altair.

5 PRINT TAB(24);"TICKERTAPE"
6 PRINT TAB(20);"CREATIVE COMPUTING" 
7 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
9 PRINT:PRINT:PRINT 
10 INPUT A$:GOSUB 80
20 FOR N=1 TO LEN(A$) 
25 B=ASC(MID$(A$,N,1))
30 IF B>90 THEN 47 
33 IF B<65 THEN 40 
35 B=B-64 
37 GOTO 50 
40 IF B>57 OR B<48 THEN 47 
41 B=B-20 
45 GOTO 50
47 B=27 
50 FOR S=0 TO (B-1)*5:READ A: NEXT S 
60 FOR S=1 TO 5:READ A: PRINT CHR$(A);:NEXT S 
65 PRINT CHR$(0);:RESTORE 
70 NEXT N
75 GOSUB 80:END 
80 FOR N=1 TO 30:PRINT CHR$(0);:NEXT N 
90 RETURN 
110 DATA 0,254,9,9,9,254,255,137,137,137,118,126,129,129,129,129 
120 DATA 255,129,129,129,126,255,137,137,137,137,255,9,9,9,1 
130 DATA 126,129,129,145,243,255,8,8,8,255,129,129,255,129,129 
140 DATA 96,128,129,127,1,255,8,20,34,193,255,128,128,128,128 
150 DATA 255,2,12,2,255,255,2,60,64,255,126,129,129,129,126 
160 DATA 255,9,9,9,6,126,129,161,65,190 
170 DATA 255,25,41,73,134,134,137,137,137,113,1,1,255,1,1 
180 DATA 127,128,128,128,127,63,96,192,96,63,127,128,112,128,127 
215 DATA 195,36,24,36,195,3,4,248,4,3,193,161,145,137,135 
220 DATA 0,0,0,0,0,126,161,137,133,126,132,130,255,128,128,194,161,145 
230 DATA 137,134,66,137,137,137,118,12,10,137,255,136,199,137,137,137 
240 DATA 248,126,137,137,137,114,1,1,249,5,2,118,137,137,137,118 
250 DATA 70,137,137,137,126


> On Dec 16, 2016, at 5:23 PM, Duane via vcf-midatlantic <vcf-midatlantic at lists.vintagecomputerfederation.org> wrote:
> 
> Corey,
> 
> I can't help on the BASIC program, but you might be able to help me.
> 
> The attached file is the output of a program I wrote last year to run on a 1219B computer and punch text into paper tape.
> 
> I hand encoded the data from a character generator data sheet (TB62713).
> 
> I don’t have a punch so I have not been able to check / debug the program.
> 
> It runs on my emulator.
> 
> If you have a way to send it to the punch, let me know of any problems.
> 
> Duane
> 
> 
> 
> -----Original Message----- From: Corey Cohen via vcf-midatlantic
> Sent: Friday, December 16, 2016 3:35 PM
> To: vcf-midatlantic
> Cc: Corey Cohen
> Subject: [vcf-midatlantic] Anyone have a hardcopy of "More Basic Computer Games"
> 
> I’m trying to run “TICKERTAPE” on my Altair so I can punch out some holiday paper tape.
> 
> Problem…  I don’t have a copy, I’ve been trying to decipher the image on the atari archives site, but I can’t seem to get it to work.  The image is really bad and I’ve had to guess on a few things.
> 
> If you have a hardcopy, can you please take a high resolution photograph with a camera or your phone and email it to me.  I want to send the paper tape in with my kids to school on Monday morning.
> 
> Thanks,
> Cheers,
> Corey
> <TAPE.txt>




More information about the vcf-midatlantic mailing list