home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64 / basiclaufschrift (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  550b  |  18 lines
  1. 10 print"[147][158]":fort=1to280:x=int(96*rnd(0)+32):printchr$(x);:next:print
  2. 20 lf$="                                       ...und hier praesentieren"
  3. 30 lf$=lf$+" wir dir einmal eine basic-lauf"
  4. 40 lf$=lf$+"schrift, die an beliebiger position"
  5. 50 lf$=lf$+" ueber den screen laufen kann... <space!>...."
  6. 60 lf$=lf$+" ":iflen(lf$)<250then60
  7. 70 :
  8. 80 yy=7   : rem bildschirmzeile
  9. 90 ve=100 : rem lauf-verzoegerung
  10. 100 :
  11. 110 aa=1  : rem zaehler-variable
  12. 120 poke211,0:poke214,yy:sys58732:printmid$(lf$,aa,40);
  13. 130 aa=aa+1:ifaa>200thenaa=1
  14. 140 fori=1tove:next
  15. 150 geta$:ifa$=" "then170
  16. 160 goto120
  17. 170 print"":list20-160
  18.