Jump to content

Photo

K-Power Magazine: Joey Ramone

basic music magazine

20 replies to this topic

#1 devwebcl OFFLINE  

devwebcl

    Stargunner

  • 1,085 posts
  • Location:Chile

Posted Sat Mar 19, 2016 8:18 PM

Hi All,

 

In the second issue of K-Power magazine was published basic listing of a known song of Joey Ramone called Slug

 

 

I have fixed the OCR from archive.org, but still there are some bugs that i cannot find (besides there is some assembler that probably has to be reviewed as well).

 

Leaving here the code, if someone else wants to help-

5 rem ATARI/SLUG
6 rem 400 or 800 • 32K RAM • color TV or monitor optional
10 POKE 106,PEEK(106)-4:GRAPHICS 0:FLAG=1
20 DIM A$(42),F$(50),V(3),BORDER$(40),BR$(5),SLUG$(40),SLS(7),TIM(15),ISTS(10)
30 PRINT CHR$(125):POKE 752,1 : SETCOLOR 1,0,0:SETCOLOR 2,12,6:SETCOLOR 4,5,0
40 BR$="SLUG*":FOR X=0 TO 4:BR$(X+1,X+1)=CHR$(ASC(BR$(X+1,X+1))+128):NEXT X
50 FOR X=0 TO 35 STEP 5:BORDER$(X+1 ,X+5)=BR$:NEXT X
60 FOR X=2 TO 37:POSITION X,1:PRINT BORDER$(X-1 ,X-1 ); : POSITION 39-X,21:PRINT BORDER$(X-1 ,X-1 ); :NEXT X
70 FOR Y=2 TO 20:POSITION 2,Y:PRINT BORDER$(22-Y,22-Y) ;:POSITION 37,Y:PRINT BORDER$(Y,Y); :NEXT Y
80 POSITION 14,0:PRINT "TUNING UP..."
90 RESTORE 5000:FOR X=1 TO 15:READ A:TIM(X)=A:NEXT X:POKE 82,4
100 RESTORE 6000:FOR X=1 TO 10:READ A: IST$(X,X)=CHR$(A):NEXT X
110 SL$="%]aaaa:":SLUG$=" ":SLUG$(37)=SLUG$:SLUG$(2)=SLUG$
120 SLUG$(1,7)=SL$:SLUG$(14,21)=SL$:SLUG$(28,34)=SL$
130 RESTORE 3000:FOR X=1536 TO 1768:READ A:POKE X,A:NEXT X
140 V(0)=(PEEK(106)+1)*256:V(1)=V(0)+197:V(2)=V(1)+93:V(3)=V(2)+93
150 FOR X=0 TO 3:HI=INT(V(X)/256):LO=V(X)-(HI*256)
160 POKE 1753+X*2,LO:POKE 1761+X*2,LO
170 POKE 1754+X*2,HI:POKE 1762+X*2,HI :NEXT X
180 RESTORE 4000:FOR X=1 TO 42:READ A: A$(X,X)=CHR$ (A) :NEXT X
190 RESTORE 2000:C=0:FOR X=1 TO 17:READ F$:FOR Y=1 TO LEN(F$)
200 Z=ASC(F$(Y,Y))-48:POKE V(0)+C,ASC(A$(Z,Z)):C=C+1
210 NEXT Y:NEXT X
220 SOUND 0,0,10,10:SOUND 1,0,10,10:SOUND 2,0,10,10:SOUND 3,0,10,10
230 A=USR(ADR(IST$))
240 C=1:RESTORE 1000:TIME=50:POSITION 4,3
250 L=TIM(C):READ F$
260 POSITION 4,C+2:PRINT F$
270 SL$=SLUG$(1):SLUG$(1)=SLUG$(2):SLUG$(37)=SL$
280 POSITION 1,0:PRINT SLUG$(1,37);:POSITION 1,22:PRINT SLUG$(1,37);
290 L=L-1:IF L>0 THEN 270
300 C=C+1:IF C=16 THEN 320
310 GOTO 250
320 READ F$:PRINT CHRS(125):POSITION 13,10:PRINT F$:POKE 88,PEEK(88)+120:POSITION 0,23:STOP
1000 DATA Ly'in in bed one sum-mer ¦ s night
1010 DATA Ev ry thing, wa-as all right
1020 DATA Some thing star ted
1030 DATA craw lin on me S. L. U. G.
1040 DATA Why why I saw her walk ing,in the woods last ni ight
1050 DATA And I knew some thin', was n't ri i i
1060 DATA -ight S L U G Ah no no no no
1070 DATA Why'd she have to Go oh oh oh
1080 DATA And I knew that if I
1090 DATA Had her back to day ay -yes
1100 DATA I know (I know) I know (I know)
1110 DATA Why is it always this way?
1120  DATA S - L - U - G
2000 DATA 3=K7K7J;K;J;K7H;JEH;J;KAK7J7H;
2010 DATA JA25JMH;J;2NK;K707K7K7K707K;K;
2020 DATA J;K;1;K707K7K;07K;H;J;H7J7K;K7
2030 DATA 07K7K;07K;K;0;K;1;L7L7L=L7L;L;
2040 DATA K;J;2G1AL;L;H;J;K;L;K;K;L;J7K;
2050 DATA 0=17K;07K71I07K71PJ;J;H;F7J7H;
2060 DATA JA681;K707K7K71RZ4<H;H7H7K;K7K
2070 DATA 7F;F7F7J;J7J783D793H793K793F79
2080 DATA 3D793C793B72:1;?7?71I?7?71AD71
2090 DATA U49?ri?;a;8;D;FIB;DMZ4<K;K7K70;
2100 DATA 0707S;S7S7Q;Q7Q783L793K7930793
2110 DATA S793Q793H793K72:1;B7B71I87B71A
2120 DATA a71U49?MH;J;K;L;0IK;LMZ4>T7T7T
2130 DATA 7T7V7V7V7V7X7X7X7X7W7w7W7W783W
2140 DATA 793T793V793X793W793Y793V793X72
2150 DATA 4W71 U93T763X763W793T763X763W79
2160 DATA 3T763X763W793T763X763W7Z
3000 DATA 72,8,152,72,138,72,162,3,188
3010 DATA 197,6,185,217,6,133,203,185,213
3020 DATA 6,133,204,189,201,6,201,5,208
3030 DATA 8,169,0,153,0,210,76,166,6
3040 DATA 201,0,208,126,189,209,6,221,213
3050 DATA 6,208,18,222,205,6,189,205,6
3060 DATA 201,0,240,35,169,0,157,209,6
3070 DATA 76,40,6,188,209,6,177,203,72
3080 DATA 200,177,203,157,201,6,200,152,157
3090 DATA 209,6,188,197,6,104,153,0,210
3100 DATA 76,166,6,188,209,6,177,203,201
3110 DATA 255,240,30,157,205,6,200,177,203
3120 DATA 157,213,6,200,152,24,101,203,133
3130 DATA 203,169,0,101,204,133,204,169,0
3140 DATA 157,209,6,76,40,6,188,197,6
3150 DATA 185,225,6,153,217,6,185,226,6
3160 DATA 153,218,6,169,0,157,201,6,157
3170 DATA 209,6,157,213,6,169,1,157,205
3180 DATA 6,76,8,6,188,197,6,165,203
3190 DATA 153,217,6,165,204,153,218,6,222
3200 DATA 201,6,202,48,3,76,8,6,104
3210 DATA 170,104,168,40,104,76,98,228,0
3220 DATA 2,4,6,0,0,0,0,1,1
3230 DATA 1,1,0,0,0,0,0,0,0
3240 DATA 0,0,0,0,0,0,0,0,0
3250 DATA 0,0,0,0,0,0,0,0
4000 DATA 0,1,2,4,6,8,10,12,16,18,20,24
4010 DATA 30,32,35,37,40,42,45,47,50
4020 DATA 53,56,57,60,64,72,76,80,82
4030 DATA 85,90,96,100,108,144,150,173

 



#2 rdea6 ONLINE  

rdea6

    River Patroller

  • 2,508 posts
  • Location:Arizona USA

Posted Sat Mar 19, 2016 8:46 PM

You are missing a couple of lines  Look at all the RESTORE statements a few go past your posted listing ending at 4030..



#3 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Wed Oct 12, 2016 7:16 AM

Fixed. For future reference, don't use OCR to correct program listings. It introduces too many errors. Better to type it from scratch.

 

Allan

 

Attached Files



#4 Fres OFFLINE  

Fres

    Dragonstomper

  • 704 posts
  • Location:Indianapolis, Indiana, USA

Posted Wed Oct 12, 2016 9:43 AM

Never really cared for the Ramones.  I know it's not "cool" to say,  Still nice find.


Edited by Fres, Wed Oct 12, 2016 9:43 AM.


#5 devwebcl OFFLINE  

devwebcl

    Stargunner

  • Topic Starter
  • 1,085 posts
  • Location:Chile

Posted Wed Oct 12, 2016 10:01 AM

Fixed. For future reference, don't use OCR to correct program listings. It introduces too many errors. Better to type it from scratch.

 

Allan

 

 

right, however the OCR came from archive.org



#6 suspicious_milk OFFLINE  

suspicious_milk

    Chopper Commander

  • 189 posts
  • Location:Muncie, IN USA

Posted Wed Oct 12, 2016 10:30 AM

Nice, thanks for sharing! I love the Ramones!!

#7 Mark loves Stella OFFLINE  

Mark loves Stella

    Space Invader

  • 23 posts
  • Location:Concord, NC

Posted Wed Oct 12, 2016 8:09 PM

That's so cool. My favorite band playing on my favorite computer!



#8 Stephen OFFLINE  

Stephen

    Quadrunner

  • 6,160 posts
  • A8 Gear Head
  • Location:Akron, Ohio

Posted Wed Oct 12, 2016 8:26 PM

That was some pretty good sounding music for 84 (well, back in 82 I could throw a football over that mountain).  Interesting article in the magazine by Talking Heads too.  Always liked those guys.



#9 adam242 ONLINE  

adam242

    Dragonstomper

  • 856 posts
  • Location:Michigan

Posted Thu Oct 13, 2016 8:00 AM

That was one of my favorite issues... I had a subscription as a kid. Man, I regret sending those to recycling during a move, years ago.

#10 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Thu Oct 13, 2016 2:38 PM

Anybody want to help me type in the Atari programs? There are only seven issues and I already did the first issue and Slug program from issue two?

 

Allan



#11 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Mon Oct 17, 2016 12:11 PM

Here's issue 3. Issue 2 is almost done. I have to debug one program.

 

Allan

 

Attached Files



#12 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Mon Oct 17, 2016 12:17 PM

Here is all four programs from issue one.

 

Allan

 

Attached Files



#13 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Mon Oct 17, 2016 5:55 PM

Here's issue 4.

 

Allan

 

Attached Files



#14 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Fri Oct 21, 2016 2:04 PM

Here's issue six.

 

Allan

 

Attached Files



#15 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Sun Oct 23, 2016 6:23 PM

Here's issue 7.

 

Allan

 

Attached Files



#16 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Wed Oct 26, 2016 4:49 PM

Here's issue eight.

 

Allan

 

Attached Files



#17 48kRAM OFFLINE  

48kRAM

    Space Invader

  • 23 posts

Posted Wed Dec 7, 2016 8:13 AM

Is Issue 2 still MIA? RCR recently covered this issue and the Joey Ramone program, so I was looking up to see if it had been converted yet.



#18 Allan OFFLINE  

Allan

    Quadrunner

  • 5,964 posts
  • Location:Wallingford, CT

Posted Wed Dec 7, 2016 3:55 PM

Is Issue 2 still MIA? RCR recently covered this issue and the Joey Ramone program, so I was looking up to see if it had been converted yet.

I have one program that I have to still debug. I got distracted with other stuff.

 

Allan



#19 Deteacher OFFLINE  

Deteacher

    River Patroller

  • 3,094 posts
  • Location:Newark, DE

Posted Fri Apr 21, 2017 6:49 AM

Sorry to dredge up an old thread, but I'm trying to run these ATRs in Altirra and Atari800Win, with no luck.  I've tried all the different systems, memory options, etc.  I've tried enabling and disabling BASIC.  NTSC/PAL...all with no luck. I'm sure it's something stupid, but what am I missing?  I either get the standard "ready" screen, or the Atari DOS menu (depending on the options I've set up.)

 

Next, I'm going to dump the ATR files onto my ATARIMAX flash cart.  Any help would be appreciated.



#20 _The Doctor__ OFFLINE  

_The Doctor__

    River Patroller

  • 2,352 posts
  • Location:10-0-11-00:02

Posted Fri Apr 21, 2017 2:14 PM

they aren't autorun menu disks

in basic

 

DOS  get the directory to know file name

 

run cartridge

 

READY appears then type where filename is substituted from directory

 

RUN "D1:FILENAME.BAS"



#21 Deteacher OFFLINE  

Deteacher

    River Patroller

  • 3,094 posts
  • Location:Newark, DE

Posted Fri Apr 21, 2017 4:52 PM

they aren't autorun menu disks

in basic

 

DOS  get the directory to know file name

 

run cartridge

 

READY appears then type where filename is substituted from directory

 

RUN "D1:FILENAME.BAS"

 

Yay!  It's working now!  Thank you!  :)







Also tagged with one or more of these keywords: basic, music, magazine

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users