Jump to content

tabar

Members
  • Content Count

    47
  • Joined

  • Last visited

Posts posted by tabar


  1. That's great. I'm in the Muskegon area. I know you would have to see the problems, but if you could do the repairs, what kind of charges do you have? am getting pictures together. The 600xl turns on blank gray screen, no disk boot or cartridge(star raiders). the 65xe boots into mem test,this is the result.

    20200430_204505.jpg


  2. Have the disks of this but it stopped working long before i put the Atari in storage. Years ago converted most of my data disks to ATR and have a lot of files if FSII that i did in collage(86-90) that i wanted to look at.

     

    Atarimania has box and disk scans but no dump. Did see one on eBay but with my system being repaired and its not like i'm going to use it for word prepossessing, i was not sure of the expense.


  3. Atari 800 basic. Bought at army px at ft. Brag in 1983. still have it, well it got zapped in a power blackout, up graded to a 65xe with 3 OS's builtin. one was a down grade to version a so older programs could run. the normal builtin i think version c and the other was one from OSS i think.


  4. the gr.0 display list(and all others) have the command to move them down to compensate for overscan on TV screens. using an emulator this is not needed. i am trying to create a gr.0 display list that has 30 lines of text insted of 24. i can create the display list but i dont know how to tell it that there are 6 more lines of text. it will give an out of range error(144) or loop back to the top after line 24. is there a way to add more text lines?

     

    5 DIM DL(50)

    10 GRAPHICS 0:? :?

    20 S=PEEK(560)+PEEK(561)*256

    30 FOR I=0 TO 35

    35 DL(I)=PEEK(S+I)

    40 ? DL(I);" ";

    45 NEXT I:? :?

    50 FOR I=0 TO 31

    55 POKE S+I,DL(I+3)

    60 ? PEEK(S+I);" ";

    65 NEXT I

    70 FOR I=26 TO 31

    75 POKE S+I,2

    80 NEXT I:X=29

    85 FOR I=I TO I+3

    90 POKE S+I,DL(X):x=X+1

    100 NEXT I:? :?

    110 FOR I=0 TO 35

    115 ? PEEK(S+I);" ";

    120 NEXT I:?

    130 list:list

     

     

    using atari800winplus 4.1

    rev c basic

    dos 2.5

    xl/xe mode 1088 kb memory

     

    on d3.atr:

    gr0dl.bas

    gr0dl.lst

    d3.atr

×
×
  • Create New...