font 64 GLOBAL USERSPIN USERSPIN = PEEKL($E000) ON VBL CALL MEMORY SUB MEMORY POKEL ($E000), USERSPIN END SUB text 0,3, "operate os version 0.1" text 0,5, "- setup" text 0,45, "exit setup" text 0,44, "help?" DO IF TAP THEN CY=TOUCH.Y\8 IF CY>=2 AND CY<=20 THEN IF CY=5 THEN GOTO Setup END IF END IF WAIT VBL LOOP Setup: keyboard off clw wait 60 text 0,3, "operate os ver 0.1" text 0,4, "click to setup" text 0,7, "account---------------" DO IF TAP THEN CY=TOUCH.Y\8 IF CY>=2 AND CY<=20 THEN IF CY=7 THEN BASE=60000 CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP IF LOADS$<>"" THEN TEXT 0,0, "ACCOUNT FOUND" WAIT 10 TEXT 0,1, "CONTINUING TO NORMAL" TEXT 0,2, "PROCESS..." WAIT 60 GOTO KNOWN ELSE TEXT 0,0, "ACCOUNT NOT FOUND" WAIT 10 TEXT 0,1, "GOING TO SIGN UP" TEXT 0,2, "PROCESS" WAIT 60 GOTO ACC END IF end if END IF END IF WAIT VBL LOOP acc: BASE=60000 DO CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP PRINT "ACCOUNT CREATOR-------" INPUT TEXTS$ WAIT 120 FOR I=1 TO LEN(TEXTS$) POKE BASE+I-1,ASC(MID$(TEXTS$,I,1)) NEXT I POKE BASE+LEN(TEXTS$),0 goto newpinenter LOOP KNOWN: SPRITE OFF CLW BASE=60000 DO CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP PRINT "SIGN IN---------------" PRINT LOADS$ IF TAP THEN CY=TOUCH.Y\8 IF CY>=1 AND CY<=11 THEN IF CY=5 THEN goto unlock END IF END IF WAIT VBL LOOP NEWPINENTER: KEYBOARD OFF PIN=0 TYPE=5 DO PAL 2 CLW TEXT 8,3, ""+STR$(PIN)+"" PAL 0 TEXT 8,5, "1 2 3" TEXT 8,7, "4 5 6" TEXT 8,9, "7 8 9" IF TYPE=1 THEN PAL 1 TEXT 8,12, "ENTER" PAL 0 TEXT 8,11, "SPACE" IF TAP THEN CY=TOUCH.Y\8 CX=TOUCH.X\8 IF CY>=1 AND CY<=21 THEN IF CX>=1 AND CX<=20 THEN IF CX=8 AND CY=5 THEN IF TYPE=2 THEN PIN=PIN+1 IF TYPE=3 THEN PIN=PIN+10 IF TYPE=4 THEN PIN=PIN+100 IF TYPE=5 THEN PIN=PIN+1000 IF 00 THEN TEXT 8,3, ""+STR$(PIN)+"" FONT 64 PAL 0 TEXT 8,5, "1 2 3" TEXT 8,7, "4 5 6" TEXT 8,9, "7 8 9" IF TYPE=1 THEN PAL 1 TEXT 8,12, "ENTER" PAL 0 TEXT 8,11, "SPACE" IF TAP THEN CY=TOUCH.Y\8 CX=TOUCH.X\8 IF CY>=1 AND CY<=21 THEN IF CX>=1 AND CX<=20 THEN IF CX=8 AND CY=5 THEN IF TYPE=2 THEN PIN=PIN+1 IF TYPE=3 THEN PIN=PIN+10 IF TYPE=4 THEN PIN=PIN+100 IF TYPE=5 THEN PIN=PIN+1000 IF 0