Jump to content

Bill Lange

Members
  • Content Count

    1,037
  • Joined

  • Last visited

Everything posted by Bill Lange

  1. My website, http://www.langesite.com/atari/games/ will be down for a few weeks to a few months. We are building a new house in Denver and while it is not quite done, we sold our old house, so we are living in one of our rentals for a couple of months. Once we get broadband installed around the 18th, it should be back up. If not, it should be back up once we move into the new house. Bill
  2. Look at this page: http://www.atariage.com/company_page.html?...800&CompanyID=1 Seems to be cartridges only so far. WRL
  3. Here are the stats on the three Holmes cds.
  4. Here are the stats on the three Holmes cds.
  5. I wrote a little program that automatically loads all of the 8-bit Atari software on my webserver into an emulator and then takes a screen shot. Its funny to watch the screens come up of stuff I have never seen before. The program needs a little tweeking to handle BASIC games. The screen shots are saved as .pcx and then I use Paint Shop to batch convert them to .png Here are some of the shots.
  6. Ask Nat Friedland! [email protected] http://www.examiner.com/article/index.cfm/...40604n_teachers WRL
  7. Sorry guys. The zip files for all the 8-bit software is just too large for me to put on my webserver. Right now there are a little over 4000 games up on my server and I will be adding a few more thousand programs over the weekend. The zip file would be in the hundreds of megs. Ken Heffington has said he would make cd/dvd if you want them. Bill
  8. My webserver is running from my home on a Qwest DSL line. So as you can see, I have a small pipe. If I zip them all up and you guys pound my connection, there will be no bandwidth left for me! :-) I'll try to zip them up when I get a chance and see what the effect is on my bandwidth. Bill
  9. If anyone has two of these devices, can you try using two at the same time on the Atari800Win PLus 4.0 emulator and let me know for sure. Also, I found that if you are using the Stelladaptor on the Atari800Win PLus 4.0, the emulator goes into crazy mode if you remove the USB cable. It continualy throws a DirectInput error. WRL
  10. Joe Can two stelladaptors be used at the same time for two player games? Bill
  11. I ordered my Stelladaptor on Thursday and received it today. That was quick shipping. I plugged the Stelladaptor into my laptop and it was automatically detected. I fired up the Atari800Win PLus 4.0 emulator and loaded Caverns Of Mars and it worked perfect. All I had to do was choose Stelladaptor from the INPUT|JOYSTICK menu. In Caverns Of Mars, even the autofire works great. Even the packing and packaging are top rate. BY the way, I am using the Stelladaptor with a Suncom StarFighter joystick. Excellent product guys. Thanks Bill
  12. Ken H. sent me the three Holmes cds earlier this week. I put about 4000 games up on my webserver. I'll try to get the rest of the software up real soon. www.langesite.com/atari/games Let me know if there are any problems except for the fact that the games are listed in reverse alphabetical order. :-) WRL
  13. I was wondering if it worked with the 800Win PLus. I'm glad that you posted that info. Thanks Bill
  14. Try one of these: Analog Magazines - http://www.cyberroach.com/analog/default.htm XL Search - http://www.newbreedsoftware.com/xlsearch/ WRL
  15. I always liked this simple type-in from Compute! magazine called goldrush. WRL 10 REM GOLDRUSH by Joseph Weber From COMPUTE! July 1982 100 REM Atari Goldrush 110 REM 120 REM Custom Characters 130 DATA 56,56,16,56,84,16,40,68 140 DATA 170,85,170,85,170,85,170,85 150 DATA 0,28,60,110,126,62,28,0 160 DATA 129,66,36,24,24,36,66,129 170 DATA 128,64,32,16,8,4,2,1 180 DATA 1,2,4,8,16,32,64,128 190 DATA 16,16,124,16,16,16,56,124 200 DIM CHAR$(8),WHICH(3,2) 210 CHAR$="*+-=<>%":MINER=3 220 GRAPHICS 1+16:SETCOLOR 4,6,4:SETCOLOR 0,1,10:SETCOLOR 3,4,10 230 PRINT #6;"GOLDRUSH!":SETCOLOR 2,3,0 240 POSITION 9,0:PRINT #6;"please wait" 250 CHSET=(PEEK(106)-8)*256:CHORG=57344 260 IF PEEK(CHSET+9)<>0 THEN 340 270 FOR I=0 TO 511:POKE CHSET+I,PEEK(CHORG+I):NEXT I 280 FOR I=1 TO 7 290 CHPOS=CHSET+(ASC(CHAR$(I))-32)*8 300 FOR J=0 TO 7 310 READ A:POKE CHPOS+J,A 320 NEXT J:NEXT I 330 FOR I=32 TO 39:POKE CHSET+I,255-PEEK(CHORG+I):NEXT I 340 POKE 756,CHSET/256 350 POSITION 9,0:PRINT #6;" ";CHR$(4);" " 360 NUGGETS=0 370 FOR I=1 TO 22:FOR J=0 TO 19 380 IF RND(0)>0.4 THEN COLOR ASC(CHAR$(2))+128:PLOT J,I:GOTO 400 390 IF I>3 THEN COLOR ASC(CHAR$(3)):PLOT J,I:NUGGETS=NUGGETS+1 400 NEXT J:NEXT I 410 CHARGES=10:POSITION 9,23:PRINT #6;"CHARGES ";CHARGES 420 XPOS=11:YPOS=0:EMF=0:GOTO 590 430 REM Main Loop 440 ST=STICK(0):TR=STRIG(0) 450 IF PEEK(20)>15 THEN POKE 709,(INT(16*RND(0))*16+10):POKE 20,0 460 IF EMF THEN SOUND 1,T,10,8:T=T*(T<8)+2:TI=TI+1:IF TI>20 THEN SOUND 1,0,0,0:GOTO 1120 470 IF 1-TR THEN IF EMF=0 THEN 820 480 IF ST=15 THEN 440 490 V=-(ST=14)*(YPOS>0)+(ST=13)*(YPOS<22) 500 H=-(ST=11)*(XPOS>0)+(ST=7)*(XPOS<19) 510 COLOR 32:PLOT XPOS,YPOS 520 XPOS=XPOS+H:YPOS=YPOS+V 530 LOCATE XPOS,YPOS,WHAT 540 IF WHAT=32 THEN 590 550 IF WHAT=ASC(CHAR$(3)) THEN GOSUB 640:GOTO 590 560 IF WHAT=ASC(CHAR$(7)) THEN GOSUB 760:GOTO 590 570 IF WHAT=4 THEN GOSUB 670:REM Cash in 580 SOUND 0,100,12,8:FOR W=1 TO 20:NEXT W:SOUND 0,0,0,0:XPOS=XPOS-H:YPOS=YPOS-V:COLOR 138:PLOT XPOS,YPOS:GOTO 440 590 COLOR 138:PLOT XPOS,YPOS 600 IF EMF AND YPOS=0 THEN EMF=0:COLOR 32:PLOT XPOS,YPOS:SOUND 1,0,0,0:GOTO 410 610 FOR W=8 TO 0 STEP -1:SOUND 0,W*5,12,W:NEXT W 620 GOTO 440 630 GOTO 630 640 FOR W=15 TO 0 STEP -1:SOUND 0,20,10,W:NEXT W:GOLD=GOLD+1:NUGGETS=NUGGETS-1:IF NUGGETS<0 THEN NUGGETS=0 650 POSITION 0,23:PRINT #6;"gold ";GOLD;" "; 660 RETURN 670 REM Cash in ! 680 SOUND 2,4,10,4 690 FOR W=10 TO 5 STEP -1:FOR I=15 TO 0 STEP -1:SOUND 0,W,10,I:NEXT I:NEXT W 700 SOUND 2,0,0,0 710 CASH=CASH+GOLD*CHARGES:GOLD=0 720 GOSUB 650 730 POSITION 14,0:PRINT #6;CASH 740 IF NUGGETS=0 THEN POP :GOTO 360 750 RETURN 760 REM Get the gold from the dead miner 770 FOR I=3 TO 1 STEP -1 780 IF WHICH(I,0)=XPOS AND WHICH(I,1)=YPOS THEN 800 790 NEXT I:RETURN 800 GOLD=GOLD+WHICH(I,2):GOSUB 650 810 RETURN 820 REM Explosion 830 XP=XPOS+H:YP=YPOS+V:IF YP=0 THEN 440 840 RESTORE 850 850 DATA 0,0,-1,-1,1,1,-1,1,1,-1 860 FOR I=1 TO 5:READ A,B 870 IF XP+A>=0 AND XP+A<=19 AND YP+B>=1 AND YP+B<=22 THEN LOCATE XP+A,YP+B,ZZ:IF ZZ=45 THEN NUGGETS=NUGGETS-1 880 NEXT I:COLOR ASC(CHAR$(4)) 890 IF XP>0 AND XP<20 THEN PLOT XP,YP 900 COLOR ASC(CHAR$(5)):IF YP>2 AND XP>0 THEN PLOT XP-1,YP-1 910 IF YP<22 AND XP<19 THEN PLOT XP+1,YP+1 920 COLOR ASC(CHAR$(6)):IF YP>2 AND XP<19 THEN PLOT XP+1,YP-1 930 IF YP<22 AND XP>0 THEN PLOT XP-1,YP+1 940 DL=PEEK(560)+256*PEEK(561):SV=PEEK(712) 950 FOR W=15 TO 0 STEP -0.5:SOUND 0,50,0,W:SW=1-SW:POKE 712,SW*(4*16+6):POKE DL,112*SW:NEXT W 960 POKE DL,112:POKE 712,SV 970 REM 980 COLOR 32:PLOT XP,YP:IF YP>2 AND XP>0 THEN PLOT XP-1,YP-1 990 IF YP<22 AND XP<19 THEN PLOT XP+1,YP+1 1000 IF YP>2 AND XP<19 THEN PLOT XP+1,YP-1 1010 IF YP<22 AND XP>0 THEN PLOT XP-1,YP+1 1020 COLOR 138:PLOT XPOS,YPOS 1030 FOR I=1 TO 20 1040 RX=INT(20*RND(0)):RY=INT(22*RND(0)+1) 1050 LOCATE RX,RY-1,Z2 1060 LOCATE RX,RY,Z:IF Z=32 AND Z2=171 THEN COLOR 171:PLOT RX,RY 1070 IF Z=138 THEN 1130 1080 NEXT I 1090 CHARGES=CHARGES-1:POSITION 17,23:PRINT #6;CHARGES;" "; 1100 IF CHARGES>0 THEN 440 1110 TI=0:EMF=1:POSITION 9,23:PRINT #6;"get out";CHR$(1);" ";:GOTO 440 1120 REM Dead miner 1130 FOR I=14 TO 0 STEP -0.5:SETCOLOR 3,4,I:SOUND 0,I,10,I:NEXT I:RESTORE 1190 1140 READ A,W:IF A>0 THEN SOUND 0,A,10,8:FOR I=1 TO W*2:NEXT I 1150 IF A>0 THEN SOUND 0,0,0,0:FOR W=1 TO 5:NEXT W:GOTO 1140 1160 COLOR ASC(CHAR$(7)):PLOT XPOS,YPOS:WHICH(MINER,2)=GOLD:GOLD=0:GOSUB 650 1170 WHICH(MINER,0)=XPOS:WHICH(MINER,1)=YPOS:MINER=MINER-1:IF MINER=0 THEN 1210:REM Game Over 1180 SETCOLOR 3,4,10:GOTO 410 1190 DATA 100,30,100,20,100,5,100,30,85,40,90,30,100,20,105,10,100,30 1200 DATA -1,0 1210 POSITION 0,0:PRINT #6;"game over" 1220 POKE 709,PEEK(53770) 1230 IF PEEK(53279)<>6 THEN 1220 1240 RUN
  16. Saludos desde Denver. Personalmente, es satisfactorio saber que hay mas atarianos en Sudamerica. Mi novia nacio en Lima Peru y vivimos en Denver con nuestros perros de raza golden retrievers (no se la traduccion en Espanol). Chau, Bill
  17. Here is some more info on these guys ... with picutures http://www.apogee1.com/keenhistory/index.html WRL
  18. When I finished 'Dungeon And Dreamers', I picked up 'Masters Of Doom'. I read about half the book last night. Another good read. WRL
  19. I received the zero track sensors today and soldered in a "new" one, but I still can seem to get it to work. Oh well. WRL
  20. What was the fastest modem available for the 8-bits? I remember having a Hayes 300 and then later on, a Hayes 2400. The Atari serial port should work to speeds up to 9600. Bill
  21. deathtrappomegranate: Thanks for giving me "chips_tech" handle. I found their handle on ebay, email them and they put up a Atari 1050 Disk Drive Track Zero Sensor for me, which I quickly purchased. Subject: Congratulations! You are the buyer for "ATARI 1050 DISK DRIVE TRACK ZERO SENSOR (2)" Thanks for the help everyone. I let you know how it goes when the parts arrive. Bill
  22. I don't see any of the zero track sensors on eBay, but found some at B&C PRA048 TRACK 0 SENSOR TANDN 1050 12.00 PRA047 TRACK 0 SENSOR WORLD 1050 12.00 WRL
  23. Carmack and Romero are also cover in Dungeons And Dreamers. Carmack talks about how he used to disassemble the Ultima code to see how it works. Bill
×
×
  • Create New...