home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 December / 64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64 / help! (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  566b  |  29 lines
  1. 10 printchr$(147)chr$(31)
  2. 20 fora=678to755:readb
  3. 30 pokea,b:x=x+b
  4. 40 next:ifx=10962goto90
  5. 50 print"fehler in datas!"
  6. 60 end
  7. 90 print"alles ok!"
  8. 100 open1,8,1,"help sys 678"
  9. 110 print#1,chr$(166)chr$(2);
  10. 200 fora=678to755:b=peek(a)
  11. 210 print#1,chr$(b);
  12. 250 next:close1
  13. 1000 data165,43,24,105,4
  14. 1001 data133,253,165,44,105
  15. 1002 data0,133,254,160,0
  16. 1003 data177,253,240,8,200
  17. 1004 data192,88,208,247,76
  18. 1005 data8,207,200,152,160
  19. 1006 data0,24,101,253,145
  20. 1007 data43,133,253,144,2
  21. 1008 data230,254,165,254,200
  22. 1009 data145,43,136,177,253
  23. 1010 data170,200,177,253,240
  24. 1011 data7,133,254,134,253
  25. 1012 data76,213,2,165,253
  26. 1013 data24,105,2,133,45
  27. 1014 data165,254,32,85,198
  28. 1015 data76,156,198
  29.