home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 68 / Digital_Talk_68_2004-08-23_Digital_Talk_de_Side_B.d64 / !kht-stoptest.ba (.txt) next >
Commodore BASIC  |  2023-02-26  |  257b  |  12 lines
  1. 1 onqagoto3: rem ---kht-stoptest02---
  2. 2 qa=1:load"kht-stoptest.as",8,1
  3. 3 poke788,52:rem stop gesperrt
  4. 4 poke792,193:poke793,254:rem restore ueberspringen
  5. 5 r$="":getr$:ifr$=""then5
  6. 6 ifr$=chr$(3)then9
  7. 7 ifr$="p"then11
  8. 8 goto5
  9. 9 sys49327
  10. 10 fori=0to500:next:goto5
  11. 11 print"prog laeuft!":goto10
  12.