home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / 1.beispiel (.txt) next >
Commodore BASIC  |  2022-10-26  |  445b  |  23 lines
  1. 100 rem sa=0.. gross-/grafikmodus
  2. 110 open4,4:rem identisch mit open4,4,0
  3. 130 a$="0123456789abcdef"
  4. 140 print#4,"  ";
  5. 150 fori=0to15
  6. 160 print#4,mid$(a$,i+1,1)" ";
  7. 170 nexti
  8. 180 print#4
  9. 190 :
  10. 200 forj=0to15
  11. 210 print#4,mid$(a$,j+1,1)" ";
  12. 220 print#4,sp$;"    ";
  13. 230 print#4,chr$(j+32)" "chr$(j+48)" ";
  14. 240 print#4,chr$(j+64)" "chr$(j+80)" ";
  15. 250 print#4,chr$(j+96)" "chr$(j+112)" ";
  16. 260 print#4,"    ";
  17. 270 print#4,chr$(j+160)" "chr$(j+176)" ";
  18. 280 print#4,chr$(j+192)" "chr$(j+208)" ";
  19. 290 print#4,chr$(j+224)" "chr$(j+240)" "
  20. 300 nextj
  21. 310 fork=1to8:print#4:nextk
  22. 320 close4
  23.