10 GOSUB 54000
20 INPUT "Do you want to save or load (S/L)";S$
30 IF UPPERS(S$)="L" THEN 100
40 INPUT "What name for the screen file "; A$
50 AS=AS+CHR$(0)
60 CALL SCRNSAVE(A$,E%)
70 IF E%<>0 THEN PRINT "Screen save not successful. Try again": GOTO 40
80 END
100 INPUT "What file do you want loaded";A$
110 A$=A$+CHR$(0)
120 CALL SCRNLOAD(A$,E%)
130 IF E%<>0 THEN PRINT "File load unsuccessful. Try again": GOTO 100
140 END
54000 REM Set up SCRNSAVE & SCRNLOAD machine-code routines
54010 MEMORY &HBFFF
54020 SCRNSAVE=&HC400:SCRNLOAD=&HC46D:A=SCRNSAVE:E=0
54030 RESTORE 54150
54040 FOR F=0 TO 40
54050 S=0
54060 FOR G=0 TO 7
54070 READ X$: X=VAL("&H"+X$)
54080 S=S+X:POKE A,X:A=A+1
54090 NEXT
54100 READ X$:IF S<>VAL("&H"+X$) THEN E=E+1:PRINT "ERROR IN LINE";10*(F+5415)
54110 NEXT
54120 IF E=0 THEN RETURN
54130 PRINT E;"ERROR";:IF E=1 THEN PRINT ELSE PRINT "S"
54140 END
54150 DATA ED, 73, 4D, C5, 31, 6D, C5, D5, 4AA
54160 DATA CD, DF, C4, CD, 2C, C4, CD, 04, 4FE
54170 DATA C5, AF, F5, 01, 5C, C4, CD, 5A, 4B1
54180 DATA FC, E9, 00, CD, 3C, C4, F1, 3C, 4DF
54190 DATA FE, 20, 38, EE, CD, 4C, C4, 11, 432
54200 DATA 00, 00, 18, 6A, 0E, 16, 11, 5C, 113
54210 DATA 00, CD, 05, 00, 3C, C0, D1, 11, 2B0
54220 DATA 02, 00, 18, 5A, 0E, 15, 11, 5C, 104
54230 DATA 00, CD, 05, 00, A7, C8, D1, 11, 323
54240 DATA 03, 00, 18, 4A, 0E, 10, 11, 5C, 0F0
54250 DATA 00, CD, 05, 00, 3C, C0, D1, 11, 2B0
54260 DATA 04, 00, 18, 3A, CD, 29, C5, EB, 2FC
54270 DATA 11, 6D, C5, 01, D0, 02, ED, B0, 3B3
54280 DATA C9, 3C, 00, 4A, 00, ED, 73, 4D, 2FC
54290 DATA C5, 31, 6D, C5, D5, CD, DF, C4, 56D
54300 DATA CD, B3, C4, CD, 04, C5, AF, F5, 57E
54310 DATA CD, C3, C4, F1, F5, 01, D3, C4, 5D2
54320 DATA CD, 5A, FC, E9, 00, F1, 3C, FE, 537
54330 DATA 20, 38, EC, 11, 00, 00, D5, 0E, 238
54340 DATA 1A, ED, 5B, 49, C5, CD, 05, 00, 342
54350 DATA 0E, 2C, 3A, 4B, C5, 5F, CD, 05, 2B5
54360 DATA 00, D1, E1, 73, 23, 72, ED, 7B, 422
54370 DATA 4D, C5, C9, 0E, 0F, 11, 5C, 00, 265
54380 DATA CD, 05, 00, 3C, C0, D1, 11, 02, 2B2
54390 DATA 00, 18, D3, 0E, 14, 11, 5C, 00, 17A
54400 DATA CD, 05, 00, A7, C8, D1, 11, 03, 326
54410 DATA 00, 18, C3, CD, 29, C5, 21, 6D, 324
54420 DATA C5, 01, D0, 02, ED, B0, C9, 7E, 47C
54430 DATA A7, 28, 1B, 23, 5E, 23, 56, 21, 205
54440 DATA 45, C5, 73, 23, 72, 23, 36, 5C, 2C7
54450 DATA 23, 36, 00, 0E, 98, 11, 45, C5, 21A
54460 DATA CD, 05, 00, 7C, B5, C8, D1, 11, 3AD
54470 DATA 01, 00, 18, A6, 0E, 31, 11, 69, 178
54480 DATA C4, CD, 05, 00, 22, 49, C5, 0E, 2D4
54490 DATA 1A, 11, 6D, C5, CD, 05, 00, 0E, 23D
54500 DATA 31, 11, 6B, C4, CD, 05, 00, 32, 275
54510 DATA 4B, C5, 0E, 2C, 1E, 06, C3, 05, 236
54520 DATA 00, 6F, 26, 00, 29, 29, 29, 29, 139
54530 DATA 11, 00, B6, 19, 5E, 23, 56, 7B, 232
54540 DATA E6, F8, CB, 27, CB, 12, 47, 7B, 46F
54550 DATA E6, 07, B0, 5F, C9, 00, 00, 00, 2C5