home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / 2.beispiel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  443b  |  23 lines
  1. 100 REM SA=7.. GROSS-/KLEINSCHRIFTMODUS
  2. 110 OPEN4,4,7:REM BUSINESS MODE
  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.