home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9105.d64 / mini-editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  552b  |  14 lines
  1. 0 REM MINIEDITOR VON MICHAEL CZYCHOWSKI
  2. 1 POKE53280,14:POKE53281,6:PRINT"[147]":POKE53272,21:POKE214,0:SYS58640
  3. 10 POKE650,128:POKE19,1:POKE214,0:SYS58640:INPUTQ$:POKE19,0
  4. 30 A=49152:FORI=1024TO2023:POKEA,PEEK(I):A=A+1:POKEI,0:NEXT:X=1024:
  5. 40 FORI=49152TO50151:POKEX,PEEK(I):X=X+1:NEXT:D=10:B=1028:C=1061:E=49152
  6. 50 PRINT"[147]":POKE214,0:SYS58640
  7. 60 IFD=39THENGOTO110
  8. 70 PRINTMID$(STR$(D),2,5);"?"+CHR$(34):FORI=BTOC:POKEI,PEEK(E):E=E+1:NEXT
  9. 80 POKEC+1,34:POKEC+2,59
  10. 90 PRINT:PRINT"D=";D;":B=";B;":C=";C;":E=";E;":D=D+1:GOTO50"
  11. 100 POKE631,19:FORI=632TO636:POKEI,13:NEXT:POKE198,7:END
  12. 110 PRINT"[147]":POKE214,0:SYS58640:FORI=30TO120STEP10:PRINTI:NEXTI:PRINT" LIST"
  13. 120 POKE631,19:FORI=632TO642:POKEI,13:NEXT:POKE198,11:END
  14.