home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8706b.d64 / basicstart-mache (.txt) next >
Commodore BASIC  |  1995-03-30  |  609b  |  21 lines
  1. 1 REM BASICSTART-MACHER
  2. 2 REM         *
  3. 3 REM  GERMANO CARONNI
  4. 4 REM  GREUBSTELSTR.10
  5. 5 REM CH-5430 WETTINGEN
  6. 6 REM TEL.0041/56262574
  7. 7 REM         *
  8. 10 POKE53281,0:POKE53280,0:PRINT"[147]"
  9. 20 PRINT"DIESES PROGRAMM ERZEUGT EIN FILE"
  10. 30 PRINT"DAS VON 820 - 827 GELADEN WERDEN"
  11. 40 PRINT"KANN UND MIT SYS 820 EIN BASIC-"
  12. 50 PRINT"RUN SIMULIERT."
  13. 60 PRINT"DAZU GEDACHT AUCH BASIC-PRG. UND"
  14. 70 PRINT"MASCHINENENSPR. GEMISCHT ZUSAMMEN-"
  15. 80 PRINT"ZUSETZEN"
  16. 90 PRINT"                                G.C"
  17. 100 INPUT"TASTE";A$
  18. 110 OPEN2,8,2,"BASIC-START,P,W"
  19. 120 PRINT#2,CHR$(820AND255);CHR$(820/256);CHR$(169);CHR$(0);CHR$(32);
  20. 130 PRINT#2,CHR$(113);CHR$(168);CHR$(76);CHR$(174);CHR$(167);:CLOSE2:PRINT"[147]"
  21.