home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_B.d64 / wave.src (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  778b  |  33 lines
  1. 10 open 1,4,7
  2. 100 sys4096*9:.opt p1,oo:*=832
  3. 110 jsr $b7f1;kommazahl holen
  4. 120 stx p1+1;und abspeichern
  5. 130 lda #0;tastaturpuffer
  6. 140 sta $c6;loeschen
  7. 150 lda $d016;aktuellen wert von
  8. 160 pha;$d016 speichern
  9. 170 lda #0;bildschirm auf 38
  10. 180 sta $d016;zeilen umschalten
  11. 190 c3 ldx #7;bildschirm 7 mal
  12. 200 c1 inc $d016;nach rechts
  13. 210 jsr p1;zur pausenroutine
  14. 220 dex;x um 1 erniedrigen
  15. 230 bne c1
  16. 240 ldx #7;bs 7 mal nach
  17. 250 c2 dec $d016;links verschieben
  18. 260 jsr p1;zur pausenroutine
  19. 270 dex
  20. 280 bne c2
  21. 290 lda #$c6;tastatur abfragen
  22. 300 cmp #$0
  23. 310 beq c3;nein,dann zurueck
  24. 320 pla;bs auf
  25. 330 sta $d016;alten wert zurueck
  26. 340 lda #$0;tastatur loeschen
  27. 350 sta $c6
  28. 360 rts;zurueck zum basic
  29. 370 p1 ldy #0;pausenzeiger holen
  30. 380 p2 iny;zaehlen
  31. 390 bne p2;schon 255
  32. 400 rts;zurueck in routine
  33.