O N E   C R A Z Y   M U L T I   T A L E N T Today its Friday, February 26, 2021 @
22:39:58


Type-in fun (C64) - Part #4
in Nostalgia | Wednesday, September 25, 2019 | 18:39


Back in the days, I always enjoyed reading magazines and almost everytime a piece of code appeared in the magazines for C64 or Amiga, I couldn't resist typing it in and see what happened!


Here's another batch of Type-Ins I personally find interresting. I have referenced the issue and page number the original type-in was published in, so if you have the magazine available, read on for more details there!

I have also created fully runable .PRG out of these, so either copy the code yourselves or simply download the .PRG if you are very lazy.

The sources was typed-in, cleaned and compiled/tested by me using the excellent "CBM prg Studio" suite. As this supports special C64 keys by for instance "{down}" to produce a arrow key down just like on real C64.



64 Keyboard Buffer Expander

As we all know, the standard limit of keyboard buffer was 10 bytes. This little snippet allows for 255 in length. Might come in handy someday.

0 rem 64 keyboard buffer expander - richard penn 
1 rem run magazine issue 63, 1989, page 12
2 rem typed/cleaned by stone oakvalley
3 rem september 2019
10 a=88:b=255:c=56334:d=65535
11 poke 1,55:poke c,peek(c) and (b-1)
20 poke a+7,0:poke a+8,160:poke a+2,b
21 poke a+3,b:poke a,b:poke a+1,b:sys41919
30 poke d,peek(d):poke c,peek(c) or 1
31 poke c-9,56:poke 1,53
40 poke 58805,0:poke 58806,192
41 poke 58810,1:poke 58811,192
50 poke 58813,0:poke 58814,192
60 poke 60221,0:poke 60222,192:poke649,255
70 rem demo below
80 print chr$(47)"expanded keyboard buffer demo"
90 for t=49152 to 49407:poke t,65:next:poke 198,255




C-64 Flashy Disk Loads

Turbo Tapes and many commercial games got their own neat loading bar border/fullscreen flashing to show activity, but this one does it from basic for Floppy Drive loading as well.

0 rem c-64 flashy disk loads - richard penn
1 rem run magazine, issue 63, 1989, page 13
2 rem typed/cleaned by stone oakvalley
3 rem september 2019
10 a=88:b=255:c=56334:d=65535:poke 1,55
11 poke c,peek(c)and(b-1)
20 poke a+7,0:poke a+8,160:poke a+2,b
21 poke a+3,b:poke a,b:poke a+1,b:sys 41919
30 poke d,peek(d):poke c,peek(c) or 1
31 poke c-9,56:poke 1,53
40 for t=679 to 679+8:read d:poke t,d:next
50 data 238,32,208,120,169,0,76,22,238
60 poke 60947,76:poke 60948,167:poke 60949,2




Statusrapport

SysInfo on Amiga is well known by most, but where's the C64 version of it? Well, this one will get us started for C64. Program is in Danish. I didn't want to translate it into English.

5 rem soft magazine (danish)
6 rem issue 8, 1986, page 42
7 rem by thomas ravn
8 rem typed/cleaned by
9 rem stone oakvalley sep 2019
50 rem ***********************
60 :
70 for t=40000 to 40567 : read a : poke t,a
80 ck=ck+a : next t
90 :
100 if ck<>52799 then print "datafejl!" : stop
110 :
120 print "dataok!"
130 print : print
140 print "sys(40000) for at faa en"
150 print "statusrapport."
160 print"(jsr$9c40 i maskin-kode!)"
170 end
180 :
200 data 76,237,157,234,234,234,234,234,234,234,147,14,8,13,32,32,32,32,32,32
201 data 32,32,32,13,32,32,211,84,65,84,85,83,45,210,65,80,80,79,82,84,32,33
202 data 13,13,13,13,32,32,194,65,83,73,67,45,83,84,65,82,84,32,58,32,0,165
203 data 44,166,43,32,205,189,169,144,160,156,32,30,171,76,162,156,13,32,32
204 data 194,65,83,73,67,45,83,76,85,84,32,32,58,32,0,165,175,166,174,32,205
205 data 189,169,179,160,156,32,30,171,76,200,156,13,32,32,214,65,82,45,83,84
206 data 65,82,84,32,32,32,1,1,1,58,32,0,165,46,166,45,32,205,189,169,217,160
207 data 156,32,30,171,76,235,156,13,32,32,193,82,82,65,89,45,83,84,65,82,84
208 data 32,58,32,0,165,48,166,47,32,205,189,169,252,160,156,32,30,171,76,14
209 data 157,13,32,32,193,82,82,65,89,45,83,76,85,84,32,32,58,32,0,165,50,166
210 data 49,32,205,189,169,32,160,157,32,30,171,76,50,157,234,13,32,32,194,65
211 data 83,73,67,45,76,73,78,74,69,32,58,32,0,165,58,166,57,32,205,189,169
212 data 67,160,157,32,30,171,76,85,157,13,32,32,196,65,84,65,45,76,73,78,74
213 data 69,32,32,58,32,0,165,64,166,63,32,205,189,169,102,160,157,32,30,171
214 data 76,120,157,13,32,32,193,65,66,78,69,32,70,73,76,69,82,32,58,32,0,169
215 data 0,166,152,32,205,189,76,148,157,13,32,32,196,69,86,73,67,69,32,78,82
216 data 46,32,32,58,32,0,169,130,160,157,32,30,171,169,0,166,186,32,205,189
217 data 76,183,157,13,32,32,195,85,82,83,79,82,32,70,65,82,86,69,58,32,0,169
218 data 165,160,157,32,30,171,169,0,174,134,2,32,205,189,76,219,157,13,32,32
219 data 216,45,210,69,71,73,83,84,69,82,32,32,58,32,0,169,201,160,157,32,30
220 data 171,169,0,174,63,156,32,205,189,76,18,158,142,63,156,141,62,156,140
221 data 61,156,169,74,160,156,32,30,171,76,127,156,13,32,32,217,45,210,69,71
222 data 73,83,84,69,82,32,32,58,32,0,169,0,160,158,32,30,171,174,61,156,169
223 data 0,32,205,189,76,54,158,13,32,32,193,67,67,85,77,85,76,65,84,79,82,32
224 data 58,32,0,169,36,160,158,32,30,171,174,62,156,169,0,32,205,189,76,89
225 data 158,13,32,32,201,78,84,69,82,82,85,80,84,32,32,32,58,0,169,72,160,158
226 data 32,30,171,169,32,32,210,255,234,173,21,3,174,20,3,32,205,189,169,13
227 data 32,210,255,32,210,255,96



64 Keyboard Buffer Expander



C-64 Flashy Disk Loads



Statusrapport




Please review these related article links:
Click to open prg64 Keyboard Buffer Expander (.prg)
Click to open prgC-64 Flashy Disk Loads (.prg)
Click to open prgStatusrapport (.prg)


------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Posted by: Old-schooler, Stone Oakvalley | Publisher: Website Designer, Stone Oakvalley
Last revised: September 25, 2019 - 18:53 | Page views: 345


Website Design by post@stone-oakvalley-studios.com - Copyright © 2021 www.stone-oakvalley-studios.com