Jump to content
devwebcl

K-Power Magazine: Joey Ramone

Recommended Posts

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

https://www.youtube.com/watch?v=YEBIH2P3-Dk

 

  • Like 5

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Edited by Fres

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

  • Like 1

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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"

  • Like 1

Share this post


Link to post
Share on other sites

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! :)

  • Like 1

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...