Fun and Games Tape 1

   1 REM 2AC406177EFE762045C8183C680772318F1210039ED4B1C40ED42444DC9
   2 CLS 
   3 FOR Z=0 TO 21
   4 PRINT AT Z,31;" "
   5 NEXT Z
   6 SLOW 
   7 LET O=0
   8 LET P=1
   9 LET BL=16418
  10 LET Z=O
  20 LET X=Z
  30 LET Y=Z
  40 LET X=X+(X=-P)-(X=64)
  42 LET Y=Y+(Y=-P)-(Y=44)
  43 UNPLOT X,Y
  45 PLOT X,Y
  50 IF Z THEN UNPLOT X,Y
  60 LET Z$=INKEY$
  70 LET X=X+(Z$="8")-(Z$="5")
  80 LET Y=Y+(Z$="7")-(Z$="6")
  90 IF Z$=CHR$ 118 THEN LET Z=NOT Z
 100 IF Z$="0" THEN GOTO 200
 110 GOTO 40
 130 POKE BL,P+P
 135 INPUT A$
 140 PRINT A$
 150 RETURN 
 160 POKE BL,O
 165 PRINT AT 23,O;" PRINT AT LINE ";INT ((43-Y)/2)+(X>61);",COL ";INT (X/2)+1-32*(X>61);"    "
 170 POKE BL,2
 180 RETURN 
 200 LET Z$=INKEY$
 210 IF Z$="" OR Z$="0" THEN GOTO 200
 220 IF Z$="T" THEN GOSUB 130
 240 IF Z$="P" THEN GOSUB 160
 250 IF Z$="S" THEN GOTO 320
 260 IF Z$="R" THEN RAND USR 16514
 265 IF INKEY$="R" THEN GOTO 265
 270 IF Z$="G" THEN GOTO 40
 280 IF Z$="N" THEN RUN 
 290 GOTO 200
 320 POKE BL,O
 330 PRINT AT 23,O;"NAME OF PICTURE?"
 340 PAUSE 180
 350 POKE BL,P+P
 360 INPUT N$
 365 IF N$="" THEN GOTO 350
 370 POKE BL,O
 380 PRINT AT 23,16-(LEN N$)/2;N$
 400 SAVE N$
 410 GOTO 200