home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / diashow (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  351b  |  18 lines
  1. 100 rem =================
  2. 110 rem =               =
  3. 120 rem = diashow-maker =
  4. 130 rem =               =
  5. 140 rem =================
  6. 150 if dm=0 then dm=11:dim a$(16)
  7. 160 if dl=0then dl=1:load "-diashow",8,1
  8. 170 if bl<>0 then 220
  9. 180 read ba
  10. 190 for i=1 to ba
  11. 200 :  read a$(i)
  12. 210 next i
  13. 220 bl=bl+1
  14. 230 if bl>1 then sys 49152
  15. 240 if bl>ba then bl=0:ba=0:restore:goto 160
  16. 250 load a$(bl),8,1
  17. 1000 data 1,"-screen"
  18.