home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45b.d64 / einschreiben (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  251b  |  10 lines
  1. 10 OPEN1,6,1:OPEN8,6,0
  2. 20 PRINT"[147]F[146]LAECHE / E[146]INSCHREIBEN ?":POKE198,0:WAIT198,1:GETA$
  3. 30 IFA$="E"THEN100
  4. 40 PRINT#8:FORZ=0TO999STEP2
  5. 50 PRINT#1,"M";0;-Z:PRINT#1,"D";479;-Z:PRINT#1,"M";479;-Z-1:PRINT#1,"D";0;-Z-1:NEXT
  6. 60 GOTO40
  7. 100 PRINT#8:FORZ=0TO999:FORX=0TO472STEP8
  8. 120 PRINT#1,"M";X;-Z:PRINT#1,"D";X+4;-Z:NEXT:NEXT
  9. 130 GOTO100
  10.