FLIP

Source Code

   10 REM      "FLIP"
   20 REM   CATS Library FEB 1986
   30 REM 
   50 CLEAR 58249
  100 REM -INTRODUCTION-
  110 PRINT AT 0,7; FLASH 1;" WELCOME TO FLIP "
  120 PRINT : PRINT : PRINT """U""= UPSIDE DOWN (flip vertical)"
  130 PRINT : PRINT """B""= BACKWARDS (flip horizontal)"
  140 PRINT : PRINT : PRINT "   This short Basic program     installs a machine code, display manipulating routine at 58250."
  150 PRINT : PRINT "To demonstrate: Touch ""U"" or ""B"""
  160 PRINT : PRINT "   To incorporate the code into your own program:  RUN ""FLIP"" :  CLEAR ""FLIP"" by entering NEW :   ENTER your own Basic Program:"
  170 PRINT "Call: ""B"" by RANDOMIZE USR 58250      ""U"" by RANDOMIZE USR 58310"
  180 PRINT "Save with:",,"    SAVE ""name""CODE 58250,118"
  899 REM 
  900 REM -INSTALL MACHINE CODE-
  901 REM 
  910 FOR i=58250 TO 58367
  920 READ a
  930 POKE i,a
  950 NEXT i
 1000 DATA 33,42,228,17,0,64,213,6,192,197,6,32,197,1,0,8,26,203,7,48,2,203,193,203,9,16,246,113,43,19,193,16,235,14,64,9,193,16,226
 1010 DATA 33,42,252,6,24,197,1,64,32,26,119,43,19,16,250,9,193,16,242,24,48
 1020 DATA 33,0,64,17,10,252,229,1,0,24,197,175,6,8,78,203,1,48,2,203,199,15,16,-9,18,35,27,193,11,120,177,32,-23
 1030 DATA 1,0,3,17,10,255,126,18,35,27,11,120,177,32,-9
 1040 DATA 209,33,11,228,1,0,27,237,176,201
 1497 REM 
 1498 REM -DEMONSTRATE "B" & "U"
 1499 REM 
 1500 PAUSE 0
 1510 LET k$=INKEY$
 1900 IF k$="b" OR k$="B" THEN RANDOMIZE USR 58250
 1910 IF k$="u" OR k$="U" THEN RANDOMIZE USR 58310
 1920 IF INKEY$="" THEN GO TO 1500
 1930 GO TO 1920
 2000 REM     "FLIP" REQUIRES ONESECOND TO MANIPULATE THE DISPLAY