home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 120 / Tiger_Disk_120_20xx_Tiger-Crew-Disk_de_Side_C.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  54 lines
  1. 0 rem *********************************
  2. 1 rem * programmloader                *
  3. 2 rem *                               *
  4. 3 rem *      klaus-dieter frohn       *
  5. 4 rem *                               *
  6. 5 rem *      falkenweg 12             *
  7. 6 rem *                               *
  8. 7 rem *      2200 elmshorn            *
  9. 8 rem *                               *
  10. 9 rem *********************************
  11. 10 rem
  12. 11 rem ********************************
  13. 12 rem * laderoutine                  *
  14. 13 rem ********************************
  15. 14 rem
  16. 20 ifpeek(2)=0thenpoke2,1:poke51,128:poke56,128
  17. 30 ifpeek(787)=0thenpoke787,1:gosub100
  18. 31 ifpeek(787)=1thenpoke787,2:load"copy",8,1
  19. 32 ifpeek(787)=2thenpoke787,3:load"gp",8,1
  20. 33 ifpeek(787)=3thenpoke787,4:load"sprite",8,1
  21. 34 ifpeek(787)=4thenpoke787,5:load"page4.neu",8,1
  22. 35 ifpeek(787)=5thenpoke787,6:load"bild holen",8,1
  23. 36 ifpeek(787)=6thenpoke787,7:load"bild zurueck",8,1
  24. 37 ifpeek(787)=7thenpoke787,8:load"auto",8,1
  25. 40 poke787,0
  26. 50 poke 826,1:rem leben
  27. 51 poke 820,10:rem hoechster level +1
  28. 60 forn=21to25:poke 800+n,0:next
  29. 61 poke 827,0
  30. 70 forn=20to23:poke1000+n,0:next
  31. 90 load"menue",8
  32. 100 rem
  33. 101 rem *******************************
  34. 102 rem * ladebild tarzan             *
  35. 103 rem *******************************
  36. 109 rem
  37. 110 poke53280,0:poke53281,0:print"[147]"
  38. 120 print"[147]"tab(9)"ein aktionsspiel aus"
  39. 130 print""tab(12)"[150]der produktion"
  40. 140 print""tab(17)"[159]von"
  41. 150 print"[154]  [209][209][209][209][209]  [209][209][209]  [209][209][209][209]  [209][209][209][209][209]  [209][209][209]  [209]   [209]"
  42. 151 print"    [209]   [209]   [209] [209]  [209][209]     [209] [209]   [209] [209][209]  [209]"
  43. 152 print"    [209]   [209]   [209] [209]  [209][209]    [209]  [209]   [209] [209][209][209] [209]"
  44. 153 print"    [209]   [209][209][209][209][209] [209][209][209][209]    [209]   [209][209][209][209][209] [209] [209] [209]"
  45. 154 print"    [209]   [209]   [209] [209] [209]    [209]    [209]   [209] [209] [209][209][209]"
  46. 155 print"    [209]   [209]   [209] [209]  [209]  [209]     [209]   [209] [209]  [209][209]"
  47. 156 print"    [209]   [209]   [209] [209]   [209] [209][209][209][209][209] [209]   [209] [209]   [209]"
  48. 160 print""tab(6)"[158]v i e [156]l"
  49. 170 print""tab(16)"[159]s p a [129]s [150]s"
  50. 180 print""tab(30)"[153][213][195][195][195][195][195][195][201]"
  51. 181 printtab(30)"[221] 1986 [221]"
  52. 182 printtab(30)"[202][195][195][195][195][195][195][203]"
  53. 190 return
  54.