home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 124 / Tiger_Disk_124_20xx_Tiger-Crew-Disk_de_Side_B.d64 / liedhelfer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  493b  |  12 lines
  1. 10 printchr$(147):ifpeek(772)=124then30
  2. 15 ifpeek(772)=141thenprint" fc-iii erkannt[154]":fort=1to1000:next:print"[147]":goto30
  3. 20 rem printchr$(19)"run "chr$(34)"cp-load.128":poke842,19:poke843,13
  4. 21 rem f$="lh"+chr$(13):fori=1to3
  5. 22 rem poke843+i,asc(mid$(f$,i,1)):next:poke208,5:end
  6. 23 print"[153]sorry![146]: c128[146]-lader war nicht auf der    original-disk... :( ":end
  7. 30 printchr$(19)"load "chr$(34)"cp-load.64"chr$(34)",8"
  8. 40 rn$="run":print""
  9. 50 printchr$(145)rn$chr$(19);
  10. 60 f$=chr$(13)+chr$(13)+"lh"+chr$(13)
  11. 70 for i=1to5:poke630+i,asc(mid$(f$,i,1)):next:poke198,5:end
  12.