02-26-2026, 08:28 PM
Code:
REM - THIS IS THE ORIGINAL SOURCE CODE FROM THE COLECO ADAM PROGRAM LISTING
15 POKE 17059, 4: POKE 17126, 246
16 GOTO 2560
20 HOME
21 IF name$ = "" THEN PRINT "There is no character to save!": FOR z = 1 TO 1000: NEXT z: GOTO 1000
22 INVERSE
23 PRINT " ";
30 PRINT "INSERT DATA DISK. ";
31 PRINT " ";
32 NORMAL
40 GET z$
41 IF z$="" THEN TEXT:GOTO 1000
42 HGR2
50 file$=LEFT$(name$, 6)
60 PRINT CHR$(4); "open "; file$; ".CDP"
70 PRINT CHR$(4); "write "; file$; ".CDP"
80 PRINT name$
85 PRINT ali$
90 PRINT score
95 PRINT xp
100 PRINT ohits
105 PRINT hits
110 PRINT weapon$
115 PRINT armor$
116 PRINT shield$
120 PRINT spell$
121 PRINT moves
125 PRINT cd
126 PRINT lamp$