Added: 1 year ago
From: uhellstr
Views: 2,217
Sort by time | Sort by thread (beta)

Link to this comment:

Share to:

All Comments (10)

Sign In or Sign Up now to post a comment!
  • Man how I wish I still have my old C64 programs. Unfortunately the cassette tape I saved them on is long, long gone.

  • Very nice!

    (I used your program to demonstrate that I can run "ehbasic for the 6502 by Lee Davison" on my hardware - I hope you don't mind)

  • @retroelec42 You can use the code as you want and modify it for your own needs.

  • syntax errosr in lines (60 and 80) ((and more))

    (((IN LINE 60 AND 80 ERRORS = COL = CO

  • @NLGAMER1000 Yes, you will get lot's of syntax error if you just copy and paste the code depending on the formattin that youtube uses. (Extra ? here and there and lost chars.) You will make sure the code is pure ascii and if you using vice you probably even has to convert from ASCII to PETSCII. (Se VICE doc) Sorry, but most secure way is to enter the code by hand. It works! the code below is an exact copy of the code showed in the video.

  • @uhellstr

    yes i use this program on me real commodore 64

    i chanes some of the errors

    but it not work

    i only see 3 things

    4 = not the same as 1/2/3 help

  • @uhellstr

    yes i use this program on me real commodore 64

    i chanes some of the errors

    but it not work

    i only see 3 things

    4 = not the same as 1/2/3 help

    sorry for my bad englise

    send from holland

    hallo wat zeg ik ? ik heb een oude lapto met ms dos 6.20

  • and second part oc C64 Basic code

    100 POKEK1,81:POKEC1,C:POKEI1,81:P­OKEC2,C

    110 POKEK2,81:POKEC3,C:POKEI2,81:P­OKEC4,C

    120 POKEK3,81:POKEC5,C:POKEI3,81:P­OKEC6,C

    130 POKEK4,81:POKEC7,C:POKEI4,81:P­OKEC8,C

    140 NEXTJ,I,W

    150 GOTO 10

  • First part of C64 basic coee

    10 PRINT CHR$(147)

    20 CA=1024:CP=54272:R=25:CO=40

    30 POKE 53280,0:POKE 53281,0

    40 FORW=3TO50:FORI=1TO12:FORJ=0TO­12:K=I+J

    50 C=J+J+J/(I+3)+I*W/12

    60 K1=CA+I+(CO*K):I1=CA+K+(CO*I):­C1=CP+K1:C2=CP+I1

    70 K2=CA+(CO-I)+(CO*(R-K)):I2=CA+­(CO-K)+(CO*(R-I)):C3=CP+K2:C4=­CP+I2

    80 K3=CA+(CO-I)+(CO*K):C5=CP+K3:I­3=CA+K+(CO*(R-I)):C6=CP+I3

    90 K4=CA+(CO-K)+(CO*I):C7=CP+K4:I­4=CA+I+(CO*(R-K)):C8=CP+I4

  • Beautiful! I wonder how many times faster this will run from assembler code. I guess we will wait and see :)

Loading...
Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more