Rotates a screen 90 degrees every time you press the button.
Content
Image Gallery
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