home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / demo_maske (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.