home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / demo_maske (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  46 lines
  1. 10 rem--------------------------------
  2. 20 rem maske demo-programm
  3. 30 rem--------------------------------
  4. 40 :
  5. 100 poke53280,0:poke53281,0:printchr$(147)
  6. 110 l=49152  :rem linie
  7. 120 s=50083  :rem feld loeschen
  8. 130 p=50242  :rem print
  9. 140 rem
  10. 150 rem linie 40 * vertikal
  11. 160 rem
  12. 170 fori=1to40:sysl,1,1,i,25,13:next
  13. 180 rem
  14. 190 rem linie 25 * horizontal
  15. 200 rem
  16. 210 fori=1to25:sysl,0,i,1,40,8:next
  17. 220 rem
  18. 230 rem feld 1 =  hauptmenue
  19. 240 rem
  20. 250 syss,1,5,12,18:sysl,0,1,1,40,8:sysl,0,5,1,40,8:sysl,1,1,12,25,8
  21. 260 sysl,1,1,29,25,8:sysl,0,2,13,16,10:sysl,0,4,13,16,10:sysl,1,2,13,3,10
  22. 270 sysl,1,2,28,3,10:sysp,3,16,4,"demo - prg"
  23. 280 rem
  24. 290 rem feld 2 = sys......
  25. 300 rem
  26. 310 syss,7,21,4,34:sysl,0,7,1,40,8:sysl,0,21,1,40,8:sysl,1,1,4,25,8
  27. 320 sysl,1,1,37,25,8
  28. 330 n=1:fori=10to18step4:sysp,i,6,3,n:n=n+1:next
  29. 340 fori=9to19step2:sysl,0,i,6,3,12:next
  30. 350 fori=9to17step4:sysl,1,i,6,3,12:sysl,1,i,8,3,12:next
  31. 360 sysp,10,10,5,"sys 49152  linie  zeichnen"
  32. 370 sysp,14,10,14,"sys 50083  feld   loeschen"
  33. 380 sysp,18,10,13,"sys 50242  print  bildsch."
  34. 390 rem
  35. 400 rem feld 3 noch......
  36. 410 rem
  37. 420 syss,24,24,5,32:sysl,0,23,1,40,8:sysl,0,25,1,40,8
  38. 430 sysl,1,1,4,25,8:sysl,1,1,37,25,8
  39. 440 sysp,24,11,14,"noch  einmal  (j/n)"
  40. 450 rem
  41. 460 rem
  42. 470 getx$:ifx$=""then470
  43. 480 ifx$="n"thenprintchr$(147):list
  44. 490 ifx$="j"then100
  45. 500 goto470
  46.