This file is part of Byte Power Spring 1987
. Download the collection to get this file.
Content
Image Gallery
Source Code
0 REM EASYprint by Eric Boisvert ©1987 BYTE POWER
10 GO TO VAL "1030"
15 PAPER VAL "7": INK VAL "0": POKE VAL "23606",VAL "0": CLEAR VAL "28099": POKE VAL "23607",VAL "115"
20 LOAD ""CODE : FOR x=NOT PI TO VAL "10": PRINT AT x,VAL "9";" !""#$%&'()*+,-";AT VAL "21-x",VAL "9";"./0123456789:;"
30 NEXT x
40 FOR x=NOT PI TO VAL "9"
50 PRINT AT x,NOT PI,,: IF x<>VAL "9" THEN PRINT AT VAL "21-x",NOT PI,,
60 NEXT x
70 PRINT AT VAL "12",VAL "9";" <=",: POKE VAL "23607",VAL "60"
80 PRINT #SGN PI;AT NOT PI,VAL "4";"Written by Eric Boisvert";AT VAL "2",VAL "3";"Copyright ©1987 BYTE POWER"
90 INK VAL "7": LOAD "EASYprint"CODE : INK VAL "0"
100 IF PEEK 23681<>0 THEN RANDOMIZE USR VAL "53630"
110 LIST 9998: STOP
1000 REM SAVE TEXT FILE
1010 GO SUB VAL "3e3": IF n$="" THEN GO TO 1010
1020 SAVE n$CODE VAL "28100",USR VAL "63728"
1030 PRINT #2: RANDOMIZE USR VAL "53872"
2000 REM LOAD TEXT FILE
2010 GO SUB VAL "3e3": RANDOMIZE USR VAL "63687": LOAD n$CODE VAL "28100"
2020 GO TO VAL "1030"
3000 CLS : INPUT "FILE NAME:"; LINE n$: IF LEN n$>VAL "10" THEN GO TO VAL "3e3"
3010 RETURN
8000 REM SAVE CUSTOMIZED VERSION
8010 SAVE "EASYprint" LINE 9950: SAVE "EASYprint"CODE VAL "53630",VAL "10370"
8020 VERIFY "": VERIFY ""CODE
9000 STOP
9900 CLEAR 65535: NEW
9950 CLEAR VAL "28099": PRINT #1;AT 1,0;"STILL LOADING...": LOAD ""CODE : RUN
9998 REM SAVE ORIGINAL VERSION
9999 SAVE "EASYprint" LINE VAL "15": SAVE "EASYprint"CODE VAL "29696",VAL "246": SAVE "EASYprint"CODE VAL "53630",VAL "10370": VERIFY "": VERIFY ""CODE : VERIFY ""CODE Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.