home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 23 / Commodore_Disc_23_19xx_-_de.d64 / demo.malprg (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  766b  |  27 lines
  1. 1 vc=53248:fori=0to63:reada:poke50432+i,a:next
  2. 2 gosub18
  3. 3 printchr$(147):print" demo malprogramm (graphbasic) ":print:print
  4. 4 print"funktionstaste 1 = programmbeginn":print
  5. 5 print"funktionstaste 3 = programmende"
  6. 6 geta$
  7. 7 ifa$="[133]"thengosub19
  8. 8 ifa$="[134]"then21
  9. 9 j=peek(56320)
  10. 10 if(jand16)=0then:gpn,0
  11. 11 dx=sgn(jand4)-sgn(jand8):dy=sgn(jand1)-sgn(jand2):x=x+dx:y=y+dy
  12. 12 ifx<0thenx=319
  13. 13 ifx>319thenx=0
  14. 14 ify<0theny=199
  15. 15 ify>199theny=0
  16. 16 x1=x+13:y1=y+40:s=(x1>255):pokevc,x1+s*256:pokevc+16,-1*s:pokevc+1,y1
  17. 17 gpl,x,y:gpn,1:goto6
  18. 18 gsc,0:pokevc+21,0:return
  19. 19 x=160:y=100:pokevc+39,0:pokevc,x+13:pokevc+1,y+40:pokevc+21,1
  20. 20 gsc,2:gco,15:poke52216,20:gpn,1:return
  21. 21 gsc,0:printchr$(147):pokevc+21,0:end
  22. 22 data0,0,0,0,0,0,0,0,0,0,0,0
  23. 23 data0,16,0,0,16,0,0,16,0,0,16,0
  24. 24 data0,0,0,0,0,0,7,199,192,0,0,0,0,0,0
  25. 25 data0,16,0,0,16,0,0,16,0,0,16,0
  26. 26 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27.