10 REM 30000
20 BORDER 0: PAPER 0: INK 6: BRIGHT 1: CLS
30 RANDOMIZE USR 24868
40 PAUSE 20: PRINT AT 17,10; INK 4;"- PRESENTA -"
50 PAUSE 20: PRINT AT 20,0;" CAULDRON II "
60 INK 0: PRINT AT 0,0
70 LOAD ""
80 REM **********
18719LMO&H?J?9K?M?LN?H__I_K_rL_N_O_I©[I]J©L©ATTR M©O©PEEK H[P]J[P] MOVE K[P]M[P] DATA N[P] COPY COPY DRAW COPY COPY USR ? COPY DRAW COPY COPY DRAW COPY COPY SAVE COPY COPY DRAW COPY COPY COPY USR COPY COPY SAVE COPY COPY LPRINT COPY COPY COPY COPY COPY COPY LIST COPY COPY LPRINT SAVE SAVE COPY COPY ? LIST SAVE ? LIST ? LIST RETURN COPY COPY USR ? LIST © COPY COPY USR © COPY COPY DRAW COPY COPY COPY © COPY COPY USR COPY COPY COPY COPY COPY COPY USR COPY COPY SAVE COPY COPY COPY COPY COPY COPY COPY COPY LPRINT COPY COPY RETURN COPY COPY COPY COPY COPY IN LIST SAVE COPY COPY COPY COPY COPY ? LIST RETURN COPY COPY COPY DRAW RETURN COPY LPRINT © COPY COPY DRAW COPY COPY DRAW COPY COPY DRAW RETURN COPY LPRINT © COPY COPY LIST COPY COPY DRAW COPY COPY SAVE DRAW ? COPY SAVE COPY COPY SAVE < LIST `0 BORDER 1 DATA 0LfUSR < LPRINT LPRINT 1 TO 0>=|USR LPRINT USR <` COPY q CIRCLE p▖ LIST ©<= LIST © SAVE a RUN NEXT SAVE LET [J] LPRINT COPY LPRINT CAT LIST COPY LIST 1▜ATN m CLS c COPY |▝ LLIST SAVE TO COPY RUN [P]>> STOP 0NOT [I]c SAVE ~3x0NOT ▜ NEW ~#STR$ USR INVERSE !IN CHR$ OR INVERSE F INVERSE # INVERSE N INVERSE #> PRINT > COPY STEP AND LET = POKE >!6 STEP AND LET = INPUT &NOT INVERSE n INVERSE # INVERSE V INVERSE # INVERSE ^ INVERSE #> OR MERGE RESTORE GO SUB VAL STEP AND LLIST MOVE STR$ = LIST > MERGE RESTORE GO SUB VAL STEP AND LLIST MOVE = LIST STR$ [I]v CLEAR >!SY6B# CLS = PAUSE ! RUN NOT SH OR > GO SUB VAL RESTORE ! FOR LLIST = LET RESTORE ! FOR LLIST STR$ DATA <> OR RANDOMIZE STR$ <>O! MERGE ]IN CHR$ GO SUB VAL NOT W OR 3