home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_2_of_3_Side_A.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 5 rem  **********************************
  2. 10 rem *                                *
  3. 15 rem *   giga - cad    graphic-system *
  4. 20 rem *                                *
  5. 25 rem * ------------------------------ *
  6. 30 rem *            'loader'            *
  7. 35 rem * ------------------------------ *
  8. 40 rem *       written in 1986 by       *
  9. 45 rem *        stefan vilsmeier &      *
  10. 50 rem *        stefan lippstreu        *
  11. 55 rem **********************************
  12. 60 :
  13. 65 :
  14. 70 a=peek(836)+1:poke836,a:ifa=1goto120
  15. 75 ifa=1thenload"hrg.cad.obj",8,1
  16. 80 ifa=2thensys49152:gosub145:load"hires1.cad.obj",8,1
  17. 85 ifa=3thensys50181,11,15,1:load"hires2.cad.obj",8,1
  18. 90 ifa=4thenload"hires3.cad.obj",8,1
  19. 95 ifa=5thensys25919:load"crsr1",8,1
  20. 100 ifa=6thenload"crsr2",8,1
  21. 105 poke836,0
  22. 110 poke646,peek(53281):print"load"chr$(34)"cad.main"chr$(34)",8"
  23. 115 print"run:":poke631,19:poke632,13:poke633,13:poke198,3:new
  24. 120 poke53280,15:poke53281,15:poke646,11:poke53263,0:printchr$(14)chr$(8)
  25. 125 poke55,0:poke56,85:clr:a=1
  26. 130 print"[147]        [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  27. 135 print"        [199]iga-[195][193][196] [214]1.0 loading..."
  28. 140 print"        [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":goto75
  29. 145 b=49153:forx=b+900tob+926:pokex,0:next:pokeb+902,1
  30. 150 pokeb+919,255:return
  31.